AMIGOS: AJUDA NOTA FISCAL
Olá AMIGOS do vbmania!
Gostaria de saber se vcs possam me mandar alguma coisa que possa
me ajudar a elaborar uma nota fiscal?
Uma imagem de Tela de como seria feita uma nota fiscal, códigos para impressão enfim....
Eu Ficaria muito grato, porque tà ' muito apavorado.
Eu fiz um Sistema Completo para a Empresa que trabalho mas só falta
a Nota Fiscal.
O pessoal da Empresa vive me cobrando, já tentei tanto e não consigo.
Se não poderem me ajudar não tem problema pois já fico grato
pela atençao de vocês.
Um abraço a todos.
Estou no Aguardo
Gostaria de saber se vcs possam me mandar alguma coisa que possa
me ajudar a elaborar uma nota fiscal?
Uma imagem de Tela de como seria feita uma nota fiscal, códigos para impressão enfim....
Eu Ficaria muito grato, porque tà ' muito apavorado.
Eu fiz um Sistema Completo para a Empresa que trabalho mas só falta
a Nota Fiscal.
O pessoal da Empresa vive me cobrando, já tentei tanto e não consigo.
Se não poderem me ajudar não tem problema pois já fico grato
pela atençao de vocês.
Um abraço a todos.
Estou no Aguardo
Leandro
Só uma pergunta. você fez todas as verificações de ICMS, IPI, Classificação Fiscal. CFOP.
Para eu lhe passar um exemplo fica meio complicado. pois eu ajudo aqui no forum enquanto eu trabalho. mas se você quiser eu lhe explico como funciona.
e me explique melhor a sua duvida
Só uma pergunta. você fez todas as verificações de ICMS, IPI, Classificação Fiscal. CFOP.
Para eu lhe passar um exemplo fica meio complicado. pois eu ajudo aqui no forum enquanto eu trabalho. mas se você quiser eu lhe explico como funciona.
e me explique melhor a sua duvida
Leandro.
Existem varios formatos de folhas de NF
aqui eu utilizo o 1x5 ADIF 2334
o código é o seguinte
Espero ter ajudado
qualquer duvida é só postar.
Existem varios formatos de folhas de NF
aqui eu utilizo o 1x5 ADIF 2334
o código é o seguinte
Printer.Font = ""
Printer.FontName = "Courier New"
Printer.FontSize = 10
'
Printer.Print " "
Printer.Print " "
Printer.Print " "
Printer.FontSize = 2
Printer.Print " "
Printer.FontSize = 10
If Aux!S_Dsc_Tipo = "2" Then
Printer.Print " X "
Else
Printer.Print " X "
End If
Printer.FontSize = 20
Printer.Print " "
Printer.FontSize = 10
Printer.Print " "
Printer.Print " "
Printer.Print " " & Aux!S_Dsc_NatOpe & " " & Aux!S_Dsc_CFOP
Printer.Print " "
Printer.Print " "
Printer.Print " " & Aux!S_Dsc_Razao & " " & Aux!S_Dsc_CNPJCli & " " & Aux!S_Dsc_Emissao
Printer.FontSize = 9
Printer.Print " "
Printer.FontSize = 10
Printer.Print " " & Aux!S_Dsc_EndCli & " " & Aux!S_Dsc_BairroCli & " " & Aux!S_Dsc_CEPCli
Printer.FontSize = 9
Printer.Print " "
Printer.FontSize = 10
Printer.Print " " & Aux!S_Dsc_Municipio & " " & Aux!S_Dsc_TelCli & " " & Aux!S_Dsc_UFCli & " " & Aux!S_Dsc_IECli
Printer.Print " "
Printer.FontSize = 11
Printer.Print " "
Printer.FontSize = 10
Printer.Print " " & Aux!S_Dsc_Parc1 & " " & Aux!S_Dsc_Venc1 & " " & Aux!S_Dsc_Val1 & " " & Aux!S_Dsc_Parc2 & " " & Aux!S_Dsc_Venc2 & " " & Aux!S_Dsc_Val2 & " " & Aux!S_Dsc_Parc3 & " " & Aux!S_Dsc_Venc3 & " " & Aux!S_Dsc_Val3
Printer.FontSize = 8
Printer.Print " "
Printer.FontSize = 10
Printer.Print " " & Aux!S_Dsc_EndCobr
Printer.Print " "
Printer.FontSize = 11
Printer.Print " "
Printer.FontSize = 8
Printer.Print " "
Printer.Print " "
Printer.Print Aux2!S_Dsc_Descr_L01
Printer.Print Aux2!S_Dsc_Descr_L02
Printer.Print Aux2!S_Dsc_Descr_L03
Printer.Print Aux2!S_Dsc_Descr_L04
Printer.Print Aux2!S_Dsc_Descr_L05
Printer.Print Aux2!S_Dsc_Descr_L06
Printer.Print Aux2!S_Dsc_Descr_L07
Printer.Print Aux2!S_Dsc_Descr_L08
Printer.Print Aux2!S_Dsc_Descr_L09
Printer.Print Aux2!S_Dsc_Descr_L10
Printer.Print Aux2!S_Dsc_Descr_L11
Printer.Print Aux2!S_Dsc_Descr_L12
Printer.Print Aux2!S_Dsc_Descr_L13
Printer.Print Aux2!S_Dsc_Descr_L14
Printer.Print Aux2!S_Dsc_Descr_L15
Printer.Print Aux2!S_Dsc_Descr_L16
Printer.Print Aux2!S_Dsc_Descr_L17
Printer.Print Aux2!S_Dsc_Descr_L18
Printer.Print Aux2!S_Dsc_Descr_L19
Printer.Print Aux2!S_Dsc_Descr_L20
Printer.Print Aux2!S_Dsc_Descr_L21
Printer.Print Aux2!S_Dsc_Descr_L22
Printer.Print Aux2!S_Dsc_Descr_L23
Printer.Print Aux2!S_Dsc_Descr_L24
Printer.Print Aux2!S_Dsc_Descr_L25
Printer.Print Aux2!S_Dsc_Descr_L26
Printer.Print Aux2!S_Dsc_Descr_L27
Printer.Print Aux2!S_Dsc_Descr_L28
Printer.Print " "
Printer.Print " "
Printer.FontSize = 11
Printer.Print " "
Printer.FontSize = 10
Printer.Print " " & Aux!S_Dsc_BaseICMS & " " & Aux!S_Dsc_ValICMS & Space(42) & Aux!S_Dsc_ValTotProd
Printer.Print " "
Printer.Print " " & Aux!S_Dsc_ValFrete & " " & Aux!S_Dsc_ValSeg & Space(25) & Aux!S_Dsc_ValIPI & " " & Aux!S_Dsc_ValTotNF
Printer.Print " "
Printer.Print " "
Printer.Print " " & Aux!S_Dsc_Transp & Space(15) & Aux!S_Dsc_OpcFrete & Space(22) & Aux!S_Dsc_CNPJTransp
Printer.FontSize = 8
Printer.Print " "
Printer.FontSize = 10
Printer.Print " " & Aux!S_Dsc_EndTransp & " " & Aux!S_Dsc_CidTransp & " " & Aux!S_Dsc_UFTransp & " " & Aux!S_Dsc_IETransp
Printer.Print " "
Printer.Print " " & Aux!S_Dsc_QtdeEmb & " " & Aux!S_Dsc_Especie & Space(30) & Aux!S_Dsc_Peso & " " & Aux!S_Dsc_Peso
Printer.FontSize = 8
Printer.Print " "
Printer.FontSize = 10
Printer.Print " "
Printer.FontSize = 11
Printer.Print " "
Printer.FontSize = 8
Printer.Print " " & Aux!S_Dsc_ClasFisc01
Printer.Print " " & Aux!S_Dsc_ClasFisc02
Printer.Print " " & Aux!S_Dsc_ClasFisc03
Printer.Print " " & Aux!S_Dsc_ClasFisc04
Printer.Print " " & Aux!S_Dsc_ClasFisc05
Printer.Print " " & Aux!S_Dsc_ClasFisc06
Printer.Print " " & Aux!S_Dsc_NossoPed
Printer.EndDoc
Espero ter ajudado
qualquer duvida é só postar.
está impresso na própria nota. e se for de modelo diferente do que eu uso, basta você ajustar o código acima. mais espaco na linha 1 menos espaço na linha 2 e por ai vai,
para testar é so imprimir no papel vegetal e colocar sobre a NF. para ver se está imprimindo no local certo.
para testar é so imprimir no papel vegetal e colocar sobre a NF. para ver se está imprimindo no local certo.
Tópico encerrado , respostas não são mais permitidas