Clipper On Line • Ver Tópico - Arquivo TXT da Nota Fiscal Paulista

Arquivo TXT da Nota Fiscal Paulista

Discussão sobre desenvolvimento de software para atender as exigências da legislação fiscal e tributária (ECF, TEF, SINTEGRA, NF-e, ECD, EFD, etc.)

Moderador: Moderadores

 

Arquivo TXT da Nota Fiscal Paulista

Mensagempor JulioNSP » 22 Dez 2009 09:17

Pessoal, estou precisando de uma ajuda para criar um arquivo texto com dados da NF Paulista.

Eu peguei os dados das NFs dos arquivos .DBF e gravei em outro arquivo, acontece que não está dando certo na hora de montar o .TXT.

Eu já ví aqui no forum que o pessoal conseguiu chegar nesse arquivo mas não sei como. Portanto se alguem puder me ajudar, desde já o meu muito obrigado.
JulioNSP
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 237
Data de registro: 22 Dez 2009 08:25
Cidade/Estado: São Paulo - SP
Curtiu: 0 vez
Mens.Curtidas: 6 vezes

Re: Arquivo TXT da Nota Fiscal Paulista

Mensagempor anacatacombs » 22 Dez 2009 10:01

Bom Dia.
Você está usando a DLL do fabricante da ECF?

[]'s

Ana
anacatacombs
Membro Master

Membro Master
 
Mensagens: 472
Data de registro: 12 Jul 2005 16:53
Cidade/Estado: Cianorte-Paraná
Curtiu: 2 vezes
Mens.Curtidas: 2 vezes

Re: Arquivo TXT da Nota Fiscal Paulista

Mensagempor JulioNSP » 22 Dez 2009 12:44

Olá, não, eu uso um aplicativo desenvolvido em Clipper Summer 87 que gera os arquivos .DBF na hora da emissão das notas, aqui ainda não usamos o ECF.

É que desde 09/2009 precisamos informar tambem as notas mod 1.

Eu tentei pegar os dados do periodo e jogar num outro arquivo .DBF e depois usar o copy to arquivo.txt SDF ou DELIMITED with .

Mas nao estou conseguindo, talvez haja outra forma se se chegar no .TXT.
JulioNSP
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 237
Data de registro: 22 Dez 2009 08:25
Cidade/Estado: São Paulo - SP
Curtiu: 0 vez
Mens.Curtidas: 6 vezes

Re: Arquivo TXT da Nota Fiscal Paulista

Mensagempor anacatacombs » 22 Dez 2009 13:19

Ok, vamos ver se eu entendi o seu problema direito.
Você está com dificuldades para mandar o conteudo do arquivo .DBF para o arquivo .TXT?
Poste um trecho do código problemático.
anacatacombs
Membro Master

Membro Master
 
Mensagens: 472
Data de registro: 12 Jul 2005 16:53
Cidade/Estado: Cianorte-Paraná
Curtiu: 2 vezes
Mens.Curtidas: 2 vezes

Re: Arquivo TXT da Nota Fiscal Paulista

Mensagempor alaminojunior » 22 Dez 2009 14:26

anacatacombs escreveu:Poste um trecho do código problemático.

Exato !
E opte por montar arquivos texto, com as funções de baixo nível: fcreate, fwrite, etc ... Pois desta forma você terá mais controle sobre o que será gravado.
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
Avatar de usuário

alaminojunior
Colaborador

Colaborador
 
Mensagens: 1689
Data de registro: 16 Dez 2005 20:26
Cidade/Estado: Ubatuba - SP
Curtiu: 27 vezes
Mens.Curtidas: 11 vezes

Re: Arquivo TXT da Nota Fiscal Paulista

Mensagempor anacatacombs » 22 Dez 2009 14:53

Eu até iria sugerir, mas nunca trabalhei com SUMMER 87 e não sei se existe compatibilidade com essas funções de manipulação de arquivos.
anacatacombs
Membro Master

Membro Master
 
Mensagens: 472
Data de registro: 12 Jul 2005 16:53
Cidade/Estado: Cianorte-Paraná
Curtiu: 2 vezes
Mens.Curtidas: 2 vezes

Re: Arquivo TXT da Nota Fiscal Paulista

Mensagempor JulioNSP » 22 Dez 2009 16:55

Ana, eu criei um arquivo .DBF para receber os dados das notas que serão usados para compor os tipos de registros da NF Paulista. Depois eu pensei em usar o copy to arquivo.txt. acontece que se su usar o delimiter with | (pipe) que esles pedem como separador ele coloca virgulas entre os campos. Se eu usar SDF os campos ficam com espaços em branco e acho que isso faz com que nao passe no validador.
Vou postar abaixo esse trecho do código:

    *******************************************************
    **  CONVERSAO PARA ARQUIVOS TIPO TXT (??? POSICOES)  **
    *******************************************************
    Close Databases
    Close Indexes
**********************
    ** REGISTRO 10  **
**********************
    If   Abre_local("ANFPTP10")
         If   Trava_arq()
*              Copy to \NEW\SP\NFPA\R10.TXT SDF
              Copy to \NEW\SP\NFPA\R10.TXT DELI
              UNLOCK
         Endif
    Endif

**********************
    ** REGISTRO 20  **
**********************
    If   Abre_local("ANFPTP20")
         If   Trava_arq()
*              Copy to \NEW\SP\NFPA\R20.TXT SDF
              Copy to \NEW\SP\NFPA\R20.TXT DELI
              UNLOCK
         Endif
    Endif
**********************
    ** REGISTRO 30  **
**********************
    If   Abre_local("ANFPTP30")
         If   Trava_arq()
*              Copy to \NEW\SP\NFPA\R30.TXT SDF
              Copy to \NEW\SP\NFPA\R30.TXT DELI
              UNLOCK
         Endif
    Endif

**********************
    ** REGISTRO 40  **
**********************
    If   Abre_local("ANFPTP40")
         If   Trava_arq()
*              Copy to \NEW\SP\NFPA\R40.TXT SDF
              Copy to \NEW\SP\NFPA\R40.TXT DELI
              UNLOCK
         Endif
    Endif

**********************
    ** REGISTRO 50  **
**********************
    If   Abre_local("ANFPTP50")
         If   Trava_arq()
*              Copy to \NEW\SP\NFPA\R50.TXT SDF
              Copy to \NEW\SP\NFPA\R50.TXT DELI
              UNLOCK
         Endif
    Endif

**********************
    ** REGISTRO 60  **
**********************
    If   Abre_local("ANFPTP60")
         If   Trava_arq()
*              Copy to \NEW\SP\NFPA\R60.TXT SDF
              Copy to \NEW\SP\NFPA\R60.TXT DELI
              UNLOCK
         Endif
    Endif

**********************
    ** REGISTRO 90  **
**********************
    If   Abre_local("ANFPTP90")
         If   Trava_arq()
*              Copy to \NEW\SP\NFPA\R90.TXT SDF
              Copy to \NEW\SP\NFPA\R90.TXT DELI with
              UNLOCK
         Endif
    Endif
***********************************************************

********************************
    **  MONTA O ARQUIVO NFPA  **
********************************
    If   Abre_local("NFPA")
         If   Trava_arq()
              Zap
              Append from D:\NEW\SP\NFPA\R10.TXT SDF
              Append from D:\NEW\SP\NFPA\R20.TXT SDF
              Append from D:\NEW\SP\NFPA\R30.TXT SDF
              Append from D:\NEW\SP\NFPA\R40.TXT SDF
              Append from D:\NEW\SP\NFPA\R50.TXT SDF
*              Append from D:\NEW\SP\NFPA\R60.TXT SDF
              Append from D:\NEW\SP\NFPA\R90.TXT SDF

              ******************************************************
              **  DEFINICAO DO NOME DO ARQUIVO PREVENDO SEMPRE    **
              **  PERIODO DE MES FECHADO FORMATO "MM" E ANO "AA"  **
              ******************************************************
              Mmes = substr(Dtj(Mdatini),7,2)
              Mano = substr(Dtj(Mdatini),3,2)
              Marq = "NFPA" + Mmes + Mano + ".TXT"
              Copy to D:\NEW\SP\NFPA\&Marq SDF
*              Copy to  d:\testesin\SP\NFPA\&Marq SDF
         Endif
    Endif
Nota de Moderação:
Toledo: Mensagem editada para colocar a tag [ code ]
Veja como utilizar esta tag: Clique aqui
JulioNSP
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 237
Data de registro: 22 Dez 2009 08:25
Cidade/Estado: São Paulo - SP
Curtiu: 0 vez
Mens.Curtidas: 6 vezes

Re: Arquivo TXT da Nota Fiscal Paulista

Mensagempor sygecom » 22 Dez 2009 17:11

É muito mais fácil você montar o TXT na marra, do que usar o COPY TO ... SDF
Pode usar até as rotinas de SET PRINTER que já resolve, de uma procurada aqui no fórum que já vi colegas postarem as rotinas de geração das NFP.
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 7005
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 130 vezes

Re: Arquivo TXT da Nota Fiscal Paulista

Mensagempor anacatacombs » 22 Dez 2009 17:14

Como disse alí em cima, não sei se vai funcionar, pois nunca trabalhei com SUMMER, e também não rodei a rotina para ver se deu erro em algum lugar..
mas seria algo parecido com..

If Abre_local("ANFPTP20")
    If Trava_arq()
        nHandle := FCREATE("\NEW\SP\NFPA\R20.TXT")
        GO TOP
        DO WHILE !EOF()
              FWRITE(nHandle,Var_Arquivo+CHR(13)+CHR(10))
              * var_arquivo = Variavel do seu banco de dados ou a linha
              * ja formatada para Nota Fiscal Paulista
              SKIP
        ENDDO
        FcLOSE(nHandle)
   ENDIF
   UNLOCK
Endif


Acho que vai dar certo..
anacatacombs
Membro Master

Membro Master
 
Mensagens: 472
Data de registro: 12 Jul 2005 16:53
Cidade/Estado: Cianorte-Paraná
Curtiu: 2 vezes
Mens.Curtidas: 2 vezes

Re: Arquivo TXT da Nota Fiscal Paulista

Mensagempor JulioNSP » 22 Dez 2009 20:56

Ana, valeu muito a dica, ja testei e funcionou certinho.
Vou mudar o programa pra montar as linhas e assim gerar o arquivo.txt que preciso.
Agradeço à você e ao pessoal que respondeu ao tópico.

[].

Julio.
JulioNSP
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 237
Data de registro: 22 Dez 2009 08:25
Cidade/Estado: São Paulo - SP
Curtiu: 0 vez
Mens.Curtidas: 6 vezes

Re: Arquivo TXT da Nota Fiscal Paulista

Mensagempor billy1943 » 29 Dez 2009 18:07

Como o Julio não explicou depois se já montou o arquivo .TXT com os dados das NF, aqui vai umas dicas:
- não deixe nehum campo com acentos, cedilhas, etc.
- siga a portaria CAT 13 detidamente
- cada registro termina com chr(13) + chr(10) = "carriage return" + "line feed"
- o arquivo termina com chr(26)
- a quantidade de separadores (chr(124) chamado de "pipe") deve ser em número de campos que cada registro tem, menos 1.
assim: se o registro 20 (notas fiscais) tiver 15 campos, devem existir 14 "pipes", antes do término do registro
- o maior problema está em conjugar as NF com os seus ítens, dada às diversas tributações, CFOPs, etc.
O bom do computador é que ele resolve os problemas, sem nunca levantar nenhum.
Hoje atuo mais com Clipper 52E, e um pouquinho com XHarbour.
Avatar de usuário

billy1943
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 570
Data de registro: 12 Mai 2009 17:33
Cidade/Estado: Bauru-SP
Curtiu: 1 vez
Mens.Curtidas: 21 vezes




Retornar para Legislação Fiscal e Tributária

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 12 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro