GERAR ARQUIVO TXT DE NF PARA O EMISSOR DA RECEITA

EMANUEL 08/07/2012 19:12:11
#405706
Pessoal, Boa noite.

Alguem teria um modelo de um arquivo TXT (Notas Fiscais), para que este arquivo seja importado no emissor de nfe da receita?

Alguem ja fez esta rotina ?

Desde ja agradeço
GUIGOR 08/07/2012 19:59:23
#405707
segue a rotina para impressao do arquivo txt.

1202 [ô]ATRIBUTOS DA NF-e
1203 Print #1, [Ô]NOTAFISCAL|1[Ô]
1204 Print #1, [Ô]A|2.00|NFe|[Ô]
1205 [ô]Identificação da Nota Fiscal eletrônica
1206 Print #1, [Ô]B|[Ô]; EmitCodUF; [Ô]||[Ô]; Trim(CBONatOP); [Ô]|[Ô]; Trim(Ind_Pag); [Ô]|[Ô]; [Ô]55|[Ô]; CtextSerie; [Ô]|[Ô]; cTEXTnNFe; [Ô]|[Ô]; Mid(DtEmissao, 7, 4) & [Ô]-[Ô] & Mid(DtEmissao, 4, 2) & [Ô]-[Ô] & Mid(DtEmissao, 1, 2); [Ô]|[Ô]; Mid(DtSaida, 7, 4) & [Ô]-[Ô] & Mid(DtSaida, 4, 2) & [Ô]-[Ô] & Mid(DtSaida, 1, 2); [Ô]|[Ô]; Trim(CtextHora); [Ô]|[Ô]; Trim(tpNF); [Ô]|[Ô]; Trim(EmitCodMunicipio); [Ô]|[Ô]; Trim(Tip_Imp); [Ô]|[Ô]; Trim(Tip_Emis); [Ô]||[Ô]; Trim(Tip_Amb); [Ô]|[Ô]; Trim(Fin_NFe); [Ô]|[Ô]; Trim(Proc_Emis); [Ô]|[Ô]; [Ô]2.1.4|||[Ô]
1207
1208 [ô]C - Identificação do Emitente da Nota Fiscal eletrônica
1209 Print #1, [Ô]C|[Ô]; Trim(EmitRZosical); [Ô]||[Ô]; Trim(EmitIE); [Ô]||||[Ô]; [Ô]3|[Ô]
1210 Print #1, [Ô]C02|[Ô]; Trim(EmitCNPJ); [Ô]|[Ô]
1211 Print #1, [Ô]C05|[Ô]; Trim(EmitEnd); [Ô]|[Ô]; Trim(EmitNum); [Ô]|[Ô]; [Ô]|[Ô]; Trim(EmitBairro); [Ô]|[Ô]; Trim(EmitCodMunicipio); [Ô]|[Ô]; Trim(EmitMunicipio); [Ô]|[Ô]; Trim(EmitUF); [Ô]|[Ô]; Trim(EmitCEP); [Ô]|1058|BRASIL|[Ô]; Trim(EmitTel); [Ô]|[Ô]
1212
1213 [ô]E - Identificação do Destinatário da Nota Fiscal eletrônica
1214 Print #1, [Ô]E|[Ô]; Trim(DestRZ); [Ô]|[Ô]; Trim(DestIE); [Ô]|[Ô]
1215 Print #1, [Ô]E02|[Ô]; Trim(DestCNPJ); [Ô]|[Ô]
1216 Print #1, [Ô]E05|[Ô]; Trim(DestEnd); [Ô]|[Ô]; Trim(DestNum); [Ô]||[Ô]; Trim(DestBairro); [Ô]|[Ô]; Trim(DestCodMun); [Ô]|[Ô]; Trim(DestMun); [Ô]|[Ô]; Trim(DestUF); [Ô]|[Ô]; Trim(DestCep); [Ô]|[Ô]; [Ô]1058|BRASIL|[Ô]; Trim(DestTel); [Ô]|[Ô]
1217
1218 [ô]H - Detalhamento de Produtos e Serviços da NF-e
1219 [ô]I - Produtos e Serviços da NF-e
1220 For i = 1 To GridProdutos.ListItems.Count
1221 [ô]Replace(GridProduto.ListItems(i).SubItems(3), [Ô],[Ô], [Ô].[Ô])
1222
1223 If Trim(Replace(GridProdutos.ListItems(i).SubItems(14), [Ô],[Ô], [Ô].[Ô])) = [Ô]0.00[Ô] Then
1224 vlDescP = [Ô][Ô]
1225 Else
1226 vlDescP = Trim(Replace(GridProdutos.ListItems(i).SubItems(14), [Ô],[Ô], [Ô].[Ô]))
1227 End If
1228
1229 If Trim(Replace(GridProdutos.ListItems(i).SubItems(15), [Ô],[Ô], [Ô].[Ô])) = [Ô]0.00[Ô] Then
1230 vlFretP = [Ô][Ô]
1231 Else
1232 vlFretP = Trim(Replace(GridProdutos.ListItems(i).SubItems(15), [Ô],[Ô], [Ô].[Ô]))
1233 End If
1234
1235 If Trim(Replace(GridProdutos.ListItems(i).SubItems(16), [Ô],[Ô], [Ô].[Ô])) = [Ô]0.00[Ô] Then
1236 vlSegP = [Ô][Ô]
1237 Else
1238 vlSegP = Trim(Replace(GridProdutos.ListItems(i).SubItems(16), [Ô],[Ô], [Ô].[Ô]))
1239 End If
1240
1241 If Trim(Replace(GridProdutos.ListItems(i).SubItems(17), [Ô],[Ô], [Ô].[Ô])) = [Ô]0.00[Ô] Then
1242 vlOutroP = [Ô][Ô]
1243 Else
1244 vlOutroP = Trim(Replace(GridProdutos.ListItems(i).SubItems(17), [Ô],[Ô], [Ô].[Ô]))
1245 End If
1246
1247 If vlDescP = [Ô]0.00[Ô] Then
1248 vlDescP = [Ô][Ô]
1249
1250 End If
1251
1252
1253 Print #1, [Ô]H|[Ô]; Trim(GridProdutos.ListItems(i).Text); [Ô]||[Ô]
1254 Print #1, [Ô]I|[Ô]; Trim(GridProdutos.ListItems(i).SubItems(1)); [Ô]|[Ô]; Trim(GridProdutos.ListItems(i).SubItems(9)); [Ô]|[Ô]; Trim(GridProdutos.ListItems(i).SubItems(2)); [Ô]|[Ô]; Trim(GridProdutos.ListItems(i).SubItems(3)); [Ô]|[Ô]; Trim(Mid(GridProdutos.ListItems(i).SubItems(3), 1, 2)); [Ô]|[Ô]; Trim(GridProdutos.ListItems(i).SubItems(4)); [Ô]|[Ô]; Trim(GridProdutos.ListItems(i).SubItems(5)); [Ô]|[Ô]; Trim(Replace(GridProdutos.ListItems(i).SubItems(6), [Ô],[Ô], [Ô].[Ô])); [Ô]|[Ô]; Trim(Replace(GridProdutos.ListItems(i).SubItems(7), [Ô],[Ô], [Ô].[Ô])); [Ô]|[Ô]; Trim(Replace(GridProdutos.ListItems(i).SubItems(8), [Ô],[Ô], [Ô].[Ô])); [Ô]|[Ô]; Trim(GridProdutos.ListItems(i).SubItems(9)); [Ô]|[Ô]; Trim(GridProdutos.ListItems(i).SubItems(5)); [Ô]|[Ô]; Trim(Replace(GridProdutos.ListItems(i).SubItems(11), [Ô],[Ô], [Ô].[Ô])); [Ô]|[Ô]; Trim(Replace(GridProdutos.ListItems(i).SubItems(12), [Ô],[Ô], [Ô].[Ô])); [Ô]|[Ô] & _
vlFretP; [Ô]|[Ô] & _
vlSegP; [Ô]|[Ô]; vlDescP; [Ô]|[Ô] & _
vlOutroP; [Ô]|[Ô]; [Ô]1|[Ô]; [Ô]||[Ô]
1258
1259 [ô]M - Tributos incidentes no Produto ou Serviço
1260 Print #1, [Ô]M|[Ô]
1261
1262 [ô]N - ICMS Normal e ST
1263 Print #1, [Ô]N|[Ô]
1264
[ô]Grupo de Tributação do ICMS = 000
1265 If Trim(GridProdutos.ListItems(i).SubItems(19)) = [Ô]000[Ô] Or Trim(GridProdutos.ListItems(i).SubItems(19)) = [Ô]100[Ô] Or Trim(GridProdutos.ListItems(i).SubItems(19)) = [Ô]200[Ô] Then
1266 Print #1, [Ô]N02|[Ô]; Trim(Mid(GridProdutos.ListItems(i).SubItems(19), 1, 1)); [Ô]|[Ô] & _
Trim(Mid(GridProdutos.ListItems(i).SubItems(19), 2, 2)); [Ô]|[Ô] & _
Trim(Mod_BC); [Ô]|[Ô] & _
Trim(Replace(GridProdutos.ListItems(i).SubItems(21), [Ô],[Ô], [Ô].[Ô])); [Ô]|[Ô] & _
Trim(Replace(GridProdutos.ListItems(i).SubItems(22), [Ô],[Ô], [Ô].[Ô])); [Ô]|[Ô] & _
Trim(Replace(GridProdutos.ListItems(i).SubItems(23), [Ô],[Ô], [Ô].[Ô])); [Ô]|[Ô]
End If
1274
[ô]Grupo de Tributação do ICMS = 040 041 050
1275 If Trim(GridProdutos.ListItems(i).SubItems(19)) = [Ô]040[Ô] Or Trim(GridProdutos.ListItems(i).SubItems(19)) = [Ô]041[Ô] Or Trim(GridProdutos.ListItems(i).SubItems(19)) = [Ô]050[Ô] Then
1276 Print #1, [Ô]N06|[Ô]; Trim(Mid(GridProdutos.ListItems(i).SubItems(19), 1, 1)); [Ô]|[Ô] & _
Trim(Mid(GridProdutos.ListItems(i).SubItems(19), 2, 2)); [Ô]|[Ô] & _
[Ô]|[Ô]
End If

[ô]Grupo de Tributação do ICMS = 051
1278 If Trim(GridProdutos.ListItems(i).SubItems(19)) = [Ô]051[Ô] Then
1279 Print #1, [Ô]N07|[Ô]; Trim(Mid(GridProdutos.ListItems(i).SubItems(19), 1, 1)); [Ô]|[Ô] & _
Trim(Mid(GridProdutos.ListItems(i).SubItems(19), 2, 2)); [Ô]|[Ô] & _
Trim(Mod_BC); [Ô]|[Ô] & _
[Ô]||||[Ô]
End If


[ô]Grupo de Tributação do ICMS = 060
1280 If Trim(GridProdutos.ListItems(i).SubItems(19)) = [Ô]060[Ô] Or Trim(GridProdutos.ListItems(i).SubItems(19)) = [Ô]160[Ô] Or Trim(GridProdutos.ListItems(i).SubItems(19)) = [Ô]260[Ô] Then
1281 Print #1, [Ô]N08|[Ô]; Trim(Mid(GridProdutos.ListItems(i).SubItems(19), 1, 1)); [Ô]|[Ô] & _
Trim(Mid(GridProdutos.ListItems(i).SubItems(19), 2, 2)); [Ô]|[Ô] & _
Trim(Replace(GridProdutos.ListItems(i).SubItems(8), [Ô],[Ô], [Ô].[Ô])); [Ô]|[Ô] & _
[Ô]0.00[Ô]; [Ô]|[Ô]
End If

[ô]Grupo de Tributação do ICMS = 090
1282 If Trim(GridProdutos.ListItems(i).SubItems(19)) = [Ô]090[Ô] Then
1283 Print #1, [Ô]N10|[Ô]; Trim(Mid(GridProdutos.ListItems(i).SubItems(19), 1, 1)); [Ô]|[Ô] & _
Trim(Mid(GridProdutos.ListItems(i).SubItems(19), 2, 2)); [Ô]|[Ô] & _
Trim(Mod_BC); [Ô]||0.00|0.00|0.00|||||||[Ô]
End If

[ô]Grupo de Tributação do ICMS = 020
1284 If Trim(GridProdutos.ListItems(i).SubItems(19)) = [Ô]020[Ô] Or Trim(GridProdutos.ListItems(i).SubItems(19)) = [Ô]120[Ô] Or Trim(GridProdutos.ListItems(i).SubItems(19)) = [Ô]220[Ô] Then
1285 Print #1, [Ô]N04|[Ô]; Trim(Mid(GridProdutos.ListItems(i).SubItems(19), 1, 1)); [Ô]|[Ô] & _
Trim(Mid(GridProdutos.ListItems(i).SubItems(19), 2, 2)); [Ô]|[Ô] & _
Trim(Mod_BC); [Ô]|[Ô] & _
Trim(Replace(GridProdutos.ListItems(i).SubItems(24), [Ô],[Ô], [Ô].[Ô])); [Ô]|[Ô] & _
Trim(Replace(GridProdutos.ListItems(i).SubItems(21), [Ô],[Ô], [Ô].[Ô])); [Ô]|[Ô] & _
Trim(Replace(GridProdutos.ListItems(i).SubItems(22), [Ô],[Ô], [Ô].[Ô])); [Ô]|[Ô] & _
Trim(Replace(GridProdutos.ListItems(i).SubItems(23), [Ô],[Ô], [Ô].[Ô])); [Ô]|[Ô]


End If



[ô]Q – PIS
1286 Print #1, [Ô]Q|[Ô]

[ô]01 – Operação Tributável (base de cálculo = valor da operação Alíquota Normal (cumulativo/não cumulativo));
1287 If Trim(GridProdutos.ListItems(i).SubItems(31)) = [Ô]01[Ô] Then
1288 Print #1, [Ô]Q02|[Ô]; Trim(GridProdutos.ListItems(i).SubItems(31)); [Ô]|[Ô] & _
Trim(Replace(GridProdutos.ListItems(i).SubItems(35), [Ô],[Ô], [Ô].[Ô])); [Ô]|[Ô] & _
Trim(Replace(GridProdutos.ListItems(i).SubItems(32), [Ô],[Ô], [Ô].[Ô])); [Ô]|[Ô] & _
Trim(Replace(GridProdutos.ListItems(i).SubItems(36), [Ô],[Ô], [Ô].[Ô])); [Ô]|[Ô]

End If

[ô]QUALQUER OUTRO VALOR DIFERENTE DE 01
1289 If Trim(GridProdutos.ListItems(i).SubItems(31)) = [Ô]06[Ô] Or Trim(GridProdutos.ListItems(i).SubItems(31)) = [Ô]04[Ô] Then
1290 Print #1, [Ô]Q04|[Ô]; Trim(GridProdutos.ListItems(i).SubItems(31)); [Ô]|[Ô]

End If

1291 If Trim(GridProdutos.ListItems(i).SubItems(31)) = [Ô]49[Ô] Then
1292 Print #1, [Ô]Q05|[Ô]; Trim(GridProdutos.ListItems(i).SubItems(31)); [Ô]|[Ô] & _
Trim(Replace(GridProdutos.ListItems(i).SubItems(35), [Ô],[Ô], [Ô].[Ô])); [Ô]|[Ô]
1293 Print #1, [Ô]Q10|0.0000|0.0000|[Ô]

End If

If Trim(GridProdutos.ListItems(i).SubItems(31)) = [Ô]99[Ô] Then
[ô]Operação Com Suspensãoda Contribuição
Print #1, [Ô]Q04|[Ô]; Trim([Ô]09[Ô]); [Ô]|[Ô]

End If

[ô]S – COFINS
1295 Print #1, [Ô]S|[Ô]

[ô]01 – Operação Tributável (base de cálculo = valor da operação Alíquota Normal (cumulativo/não cumulativo));
1296 If Trim(GridProdutos.ListItems(i).SubItems(42)) = [Ô]
EMANUEL 08/07/2012 20:39:31
#405709
Caro Guigor
obrigado pela atenção.

Quando tentei importar este seu arquivo TXT, a seguinte msg de erro ocorre:
Linha 1: Quantidade de registros do arquivo nao informado.

Qual seria solução?

obrigado mais uma vez,
GUIGOR 09/07/2012 20:19:07
#405751
segue outro esse eu importei aqui e tudo funcionou caso precise mas ajuda pode me add no msn guiguigor@HOTMAIL.COM OU NO SKYPE GUIGUIGOR@HOTMAIL.COM
PAULOOLIVEIRA 09/07/2012 21:55:24
#405758
Companheiro, acho que voce deveria baixar o layout no site do sefaz sp, bem facil..

ok!
Tópico encerrado , respostas não são mais permitidas
Voltar