Exemplo de arquivo XML de nfe, carta de correção, Manifesto Transporte usando UNIMAKE

[marcioe]

Amigos será que algum amigo tem ai, que possa enviar

Exemplo de arquivo XML de nfe, carta de correção, Manifesto Transporte usando UNIMAKE.

[kapiaba]

https://br.groups.yahoo.com/neo/groups/uninfe/conversations/topics/14872

[kapiaba]

Pequeno trecho de quando eu usva a UNIDANFE.EXE, agora nao uso mais.

Agora e via FASTREPORT.

FUNCTION IMPRIMIR_CCE( cAlias, oLbxCCe )


   IF .NOT. lIsDir( "C:\NFEPDF" ) // Diretorio NFEPDF nao esixste? TEM Q CRIAR

      lMkDir( UPPER( "C:\NFEPDF" ) )

   ENDIF


   nNumeroCCe := ALLTRIM(STR( ( cAlias )->CODI ) )


      // Verifica a Existencia da Carta no Diretorio

      cXmlCarta := cDirPleno + "\" + ALLTRIM( "REMESSA\PROTOCOLOS\" )    + ;

                   ALLTRIM( ( cAlias )->CHAVE )                          + ;

                   "-CCe"+ALLTRIM(STR( ( cAlias )->CODI ) ) + ".xml"


      IF .NOT. FILE( cXmlCarta )


         MsgStop( OemToAnsi( "ATEN€ÇO USUµRIO:                       " )+CRLF+ ;

                  OemToAnsi( "O ARQUIVO .XML DESTA CARTA DE CORREۂO " )+CRLF+ ;

                  OemToAnsi( "NÇO FOI LOCALIZADO NO DIRETàRIO:       " )+CRLF+ ;

                  cXmlCarta                                             +CRLF+ ;

                  OemToAnsi( "IMPOSSÖVEL IMPRIMIR ESTA CC-e.         " )+CRLF+ ;

                  OemToAnsi( "O ARQUIVO.XML DA CARTA FOI EXCLUIDO?   " )+CRLF+ ;

                  OemToAnsi( "VOCÒ ESTµ EM UMA FILIAL? SE ESTµ EM    " )+CRLF+ ;

                  OemToAnsi( "UMA FILIAL, INFORME A CONTATO SISTEMAS " )+CRLF+ ;

                  OemToAnsi( "VOCÒ FEZ CàPIA DE SEGURAN€A?           " )+CRLF+ ;

                  OemToAnsi( "TROCOU DE COMPUTADOR?  VERIFIQUE!      " ),      ;

                  OemToAnsi( "ARQUIVO .XML DA CC-E NÇO LOCALIZADO!   " ) )


         RETURN NIL


      ENDIF


      // Caminho Onde Esta a Carta de Correcao e a Nota Fiscal

      cPathNF := ALLTRIM( "REMESSA\PROTOCOLOS\" )


      cXmlCarta := cPathNF + ALLTRIM( ( cAlias )->CHAVE ) + "-CCe"      + ;

                   ALLTRIM( STR( ( cAlias )->CODI ) )      + ".xml nfe=" + ;

                   cPathNF + ALLTRIM( ( cAlias )->CHAVE ) + "nfe.xml"


      //? cXmlCarta


      //unidanfe.exe a=ArqXML-CCe nfe=ArqXML-NFe edição=Free email=test@teste.com.br imprimir=1 visualizar=1 logotipo...


      IF lSemPreviewCCe // := .T. NAO QUERO PREVIEW DO UNIDANFE.EXE


         cStatusImp := " edição=Free imprimir=1 visualizar=0 logotipo="       + ;

                       cLogoEmpresa + " copias=" + ALLTRIM( STR( nCopias ) )


      ELSE  // COM PREVIEW USANDO O UNIDANFE.EXE


         cStatusImp := " edição=Free visualizar=1 logotipo="       + ;

                       cLogoEmpresa + " copias=" + ALLTRIM( STR( nCopias ) )

      ENDIF


      cCartaCCe := cXmlCarta + cStatusImp


      // Vai gerar a Carta com o UNIDANFE.EXE

      // O UNIDANFE.EXE tem q ficar em uma subpasta onde esta o .EXE da NF-e


      //WINEXEC( "C:\UNIDANFE\UNIDANFE.EXE a=" + cCartaCCe )

      // Ou cFILEPATH(GETMODULEFILENAME(GETINSTANCE()))


         // DESLIGADO O UNIDANFE.EXE EM: 04/10/2013 USANDO FASTREPORT AGORA

      MSGRUN( "Gerando a Impressão da Carta de Correção da Nota Fiscal Eletrônica - CC-e.", ;

              "Por Favor, Espere! Gerando a Impressão da Carta de Correção da NF-e       ", ;

              { || WINEXEC( cDirExe+"UNIDANFE\UNIDANFE.EXE a=" + cCartaCCe, 1 ) } )


   ENDIF


   lSemPreviewCCe := .F.

   lChamaAdobe    := .F. // Incluido em: 27/01/2014 Ver no Adobe Reader.


RETURN NIL

[marcioe]

olá amigo

Estava querendo mesmo era um XML sem assinatura para que eu pudesse comprar com o meu aqui, e se puder ainda um exemplo de manifesto.

Já que Voce esta fazendo em fast se puder postar os FR3 (NF-E, CTE-, MDF-E CC-E, ETC)

[kapiaba]

Só tenho da CCe, veja seu email.