Perguntas Impressão de Danfe
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 9 meses atrás - 10 anos 9 meses atrás #20670
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Impressão de Danfe
Dentro do Fonte DanfeII ou DanfeIII coloque isso
ElseIf oSetup:GetProperty(PD_PRINTTYPE) == IMP_PDF
oDanfe:nDevice := IMP_PDF
//
// Define para salvar o PDF
//
MakePath('C:\SPOOL\')
oDanfe:cPathPDF := oSetup:aOptions[PD_VALUETYPE]
oDanfe:cPathPDF := 'C:\SPOOL\' //oSetup:aOptions[PD_VALUETYPE]
Para o usuário continuará aparecendo c:\ mas ele pode mandar imprimir direto que internamente vai salvar na pasta c:\spool\ ok.
ElseIf oSetup:GetProperty(PD_PRINTTYPE) == IMP_PDF
oDanfe:nDevice := IMP_PDF
//
// Define para salvar o PDF
//
MakePath('C:\SPOOL\')
oDanfe:cPathPDF := oSetup:aOptions[PD_VALUETYPE]
oDanfe:cPathPDF := 'C:\SPOOL\' //oSetup:aOptions[PD_VALUETYPE]
Para o usuário continuará aparecendo c:\ mas ele pode mandar imprimir direto que internamente vai salvar na pasta c:\spool\ ok.
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Ultima edição: 10 anos 9 meses atrás por lalberto.
Por favor Acessar ou Registrar para participar da conversa.
- robert
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 11
- Obrigados Recebidos: 0
10 anos 9 meses atrás #20712
por robert
Respondido por robert no tópico Impressão de Danfe
Bom dia, Senhores
Alguém sabe me dizer se é possível alterar o nome do danfe e se também é possível gravar separadamente cada nota em um intervalo de 1000 danfes
Alguém sabe me dizer se é possível alterar o nome do danfe e se também é possível gravar separadamente cada nota em um intervalo de 1000 danfes
Por favor Acessar ou Registrar para participar da conversa.
- ELISANDRO
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 1
- Obrigados Recebidos: 0
10 anos 4 meses atrás - 10 anos 4 meses atrás #23515
por ELISANDRO
Respondido por ELISANDRO no tópico Impressão de Danfe
Boa Tarde, vou deixar a titulo de informação, para alguém que necessite imprimir DANFES com parâmetros adicionais ao padrão existente no programa DANFEii.
Como eu não achei solução para o problema que eu tive aqui então vou deixar o programa customizado em anexo.
Dentro do DANFEii (padrao):
Substituir dentro da função DanfeProc(oDanfe,lEnd,cIdEnt,cVal1,cVal2,lExistNfe)
nas linhas:
"Else
BeginSql Alias cAliasSF3
COLUMN F3_ENTRADA AS DATE
COLUMN F3_DTCANC AS DATE
trocar este: SELECT F3_FILIAL,F3_ENTRADA,F3_NFELETR,F3_CFO,F3_FORMUL,F3_NFISCAL,F3_SERIE,F3_CLIEFOR,F3_LOJA,F3_ESPECIE,F3_DTCANC
por este: SELECT F3_FILIAL,F3_ENTRADA,F3_NFELETR,F3_CFO,F3_FORMUL,F3_NFISCAL,F3_SERIE,F3_CLIEFOR,F3_LOJA,F3_ESPECIE,F3_DTCANC,F3_ESTADO
Na linha 265 aproximadamente tem estre trecho de código que deve ficar assim:
dbSelectArea(cAliasSF3)
If Empty((cAliasSF3)->F3_DTCANC) .And. &cWhere .and. iif(FUNNAME()=='SpedDanfe' .or. FUNNAME()=='FAR330',&ccFiltro,xFilial("SF3") == (cAliasSF3)->F3_FILIAL) //.And. AModNot((cAliasSF3)->F3_ESPECIE)=="55"
Acrescentar o programa em anexo, compilar e testar
Como eu não achei solução para o problema que eu tive aqui então vou deixar o programa customizado em anexo.
Dentro do DANFEii (padrao):
Substituir dentro da função DanfeProc(oDanfe,lEnd,cIdEnt,cVal1,cVal2,lExistNfe)
nas linhas:
"Else
BeginSql Alias cAliasSF3
COLUMN F3_ENTRADA AS DATE
COLUMN F3_DTCANC AS DATE
trocar este: SELECT F3_FILIAL,F3_ENTRADA,F3_NFELETR,F3_CFO,F3_FORMUL,F3_NFISCAL,F3_SERIE,F3_CLIEFOR,F3_LOJA,F3_ESPECIE,F3_DTCANC
por este: SELECT F3_FILIAL,F3_ENTRADA,F3_NFELETR,F3_CFO,F3_FORMUL,F3_NFISCAL,F3_SERIE,F3_CLIEFOR,F3_LOJA,F3_ESPECIE,F3_DTCANC,F3_ESTADO
Na linha 265 aproximadamente tem estre trecho de código que deve ficar assim:
dbSelectArea(cAliasSF3)
If Empty((cAliasSF3)->F3_DTCANC) .And. &cWhere .and. iif(FUNNAME()=='SpedDanfe' .or. FUNNAME()=='FAR330',&ccFiltro,xFilial("SF3") == (cAliasSF3)->F3_FILIAL) //.And. AModNot((cAliasSF3)->F3_ESPECIE)=="55"
Acrescentar o programa em anexo, compilar e testar
Ultima edição: 10 anos 4 meses atrás por ELISANDRO. Razão: aDIONAR ANEXO
Por favor Acessar ou Registrar para participar da conversa.
- admin
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 216
- Obrigados Recebidos: 0
Tempo para a criação da página:0.106 segundos