marcioe Posted September 29, 2014 Report Share Posted September 29, 2014 Amigos será que algum amigo tem ai, que possa enviar Exemplo de arquivo XML de nfe, carta de correção, Manifesto Transporte usando UNIMAKE. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 30, 2014 Report Share Posted September 30, 2014 https://br.groups.yahoo.com/neo/groups/uninfe/conversations/topics/14872 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 30, 2014 Report Share Posted September 30, 2014 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 Quote Link to comment Share on other sites More sharing options...
marcioe Posted September 30, 2014 Author Report Share Posted September 30, 2014 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) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 30, 2014 Report Share Posted September 30, 2014 Só tenho da CCe, veja seu email. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.