Jump to content
Fivewin Brasil

Destinatario na NFE 3.10


crisvam

Recommended Posts

Ola Boa tarde

Crisvam o que voce realmente esta precisando, um XML, o que voce usa para gerar a NFe.

Fico no aguardo

Estou precisando de um exemplo de programação que contenha a lógica do lay out, se possível em xHarbour. Porque houve inclusões de vários campos e o novo Lay out, serve para os dois modelos de notas....

Link to comment
Share on other sites

Ola Boa noite

Crisvam eu USO a FLEXDOCS com a CLASSE do GILMER... o que VOCE esta usando para gerar os teus XML.

Fico no aguardo.

Exatamente o mesmo, so que na classe eu já fiz as modificações, e estou fazendo as modificações no meu sistema. Mas surgiu algumas dúvidas de como seria a melhor forma de enviar os dados do destinatario, que pra mim, ficou meio confuso no lay out da NF-e/NFC-e. Então pra não ter que fazer fluxograma, outra analise, etc... se alguem já tivesse feito isto e pudesse disponibilizar a parte do destinatário, me ajudaria muito.

Link to comment
Share on other sites

Crisvam, não sei se é o que você precisa, mas se utiliza a classe do Gilmer + Flexdocs, deve ser isso, espero que ajude:

// Modificação nos dados do XML a partir de 01/05/2011 obrigado pelo SEFAZ para ambiente de HOMOLOGAÇÃO
If Val(cTpAmbiente)=1 // Producao
cDestNome := If(!Empty((cAliasCliFor)->RAZAO),(cAliasCliFor)->RAZAO,(cAliasCliFor)->NOME )
cDestCnpjCpf:= If(lPosIcm,(cAliasCliFor)->CNPJ, (cAliasCliFor)->CPF)
cDestIe := (cAliasCliFor)->IEST
Else // Homologação
cDestNome := "NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL"
cDestCnpjCpf:= If(lPosIcm,(cAliasCliFor)->CNPJ, (cAliasCliFor)->CPF)
cDestIe := (cAliasCliFor)->IEST
Endif
If cUfCli <> "EX" // Só passar CNPF se não for importação/exportação.
If lPosIcm // .or. Val(cTpAmbiente)=2
oNFe:SetValue("dest" , "CNPJ" , R_CnpjLienar(cDestCnpjCpf)) // CNPJ
Else
oNFe:SetValue("dest" , "CPF" , R_CpfLienar(cDestCnpjCpf) ) // CPF
Endif
Else
oNFe:SetValue("dest" , "CNPJ" , "") // CNPJ
Endif
oNFe:SetValue("dest" , "xNome" , cDestNome )// Razão Social
oNFe:SetValue("dest" , "xFant" , " " ) // Nome Fabtasia
oNFe:SetValue("dest" , "xLgr" , Alltrim((cAliasCliFor)->TIPO)+" "+Alltrim((cAliasCliFor)->END) ) // Endereço
oNFe:SetValue("dest" , "nro" , (cAliasCliFor)->NUMERO ) // Numero do Endereço
oNFe:SetValue("dest" , "xCpl" , (cAliasCliFor)->COMPL ) // Complemento do Endereço
oNFe:SetValue("dest" , "xBairro" , (cAliasCliFor)->BAIRRO ) // Bairro
oNFe:SetValue("dest" , "cMun" , (cAliasCliFor)->CODCID ) // Código do IBGE do Municipio
oNFe:SetValue("dest" , "xMun" , (cAliasCliFor)->CIDADE ) // Municipio
oNFe:SetValue("dest" , "UF" , (cAliasCliFor)->UF ) // Estado
oNFe:SetValue("dest" , "CEP" , ClearChar( (cAliasCliFor)->CEP, {"-"}) ) // CEP
oNFe:SetValue("dest" , "cPais" , If(Empty((cAliasCliFor)->CODPAIS), "1058", (cAliasCliFor)->CODPAIS))// RetCodPaisIBGE()) //Default := Brasil // Código do IBGE do Pais
oNFe:SetValue("dest" , "xPais" , cNomePais) // Pais
oNFe:SetValue("dest" , "fone" , ClearChar((cAliasCliFor)->FONE ,{"-","(",")"," ","."}) ) // Telefone
oNFe:SetValue("dest" , "indIEDest", If("ISENTO" $ cDestIe .or. Empty(Alltrim(cDestIe)), "2","1") )
If ! ( "ISENTO" $ cDestIe .or. Empty(Alltrim(cDestIe)) )
oNFe:SetValue("dest" , "IE" , ClearChar(cDestIe ,{".","-"} ) ) // Inscrição Estadual
Endif
oNFe:SetValue("dest" , "ISUF" , cSuframa ) // Inscrição Suframa
oNFe:SetValue("dest" , "email" , (cAliasCliFor)->EMAIL ) // Email
Link to comment
Share on other sites

Crisvam, não sei se é o que você precisa, mas se utiliza a classe do Gilmer + Flexdocs, deve ser isso, espero que ajude:

// Modificação nos dados do XML a partir de 01/05/2011 obrigado pelo SEFAZ para ambiente de HOMOLOGAÇÃO
If Val(cTpAmbiente)=1 // Producao
cDestNome := If(!Empty((cAliasCliFor)->RAZAO),(cAliasCliFor)->RAZAO,(cAliasCliFor)->NOME )
cDestCnpjCpf:= If(lPosIcm,(cAliasCliFor)->CNPJ, (cAliasCliFor)->CPF)
cDestIe := (cAliasCliFor)->IEST
Else // Homologação
cDestNome := "NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL"
cDestCnpjCpf:= If(lPosIcm,(cAliasCliFor)->CNPJ, (cAliasCliFor)->CPF)
cDestIe := (cAliasCliFor)->IEST
Endif
If cUfCli <> "EX" // Só passar CNPF se não for importação/exportação.
If lPosIcm // .or. Val(cTpAmbiente)=2
oNFe:SetValue("dest" , "CNPJ" , R_CnpjLienar(cDestCnpjCpf)) // CNPJ
Else
oNFe:SetValue("dest" , "CPF" , R_CpfLienar(cDestCnpjCpf) ) // CPF
Endif
Else
oNFe:SetValue("dest" , "CNPJ" , "") // CNPJ
Endif
oNFe:SetValue("dest" , "xNome" , cDestNome )// Razão Social
oNFe:SetValue("dest" , "xFant" , " " ) // Nome Fabtasia
oNFe:SetValue("dest" , "xLgr" , Alltrim((cAliasCliFor)->TIPO)+" "+Alltrim((cAliasCliFor)->END) ) // Endereço
oNFe:SetValue("dest" , "nro" , (cAliasCliFor)->NUMERO ) // Numero do Endereço
oNFe:SetValue("dest" , "xCpl" , (cAliasCliFor)->COMPL ) // Complemento do Endereço
oNFe:SetValue("dest" , "xBairro" , (cAliasCliFor)->BAIRRO ) // Bairro
oNFe:SetValue("dest" , "cMun" , (cAliasCliFor)->CODCID ) // Código do IBGE do Municipio
oNFe:SetValue("dest" , "xMun" , (cAliasCliFor)->CIDADE ) // Municipio
oNFe:SetValue("dest" , "UF" , (cAliasCliFor)->UF ) // Estado
oNFe:SetValue("dest" , "CEP" , ClearChar( (cAliasCliFor)->CEP, {"-"}) ) // CEP
oNFe:SetValue("dest" , "cPais" , If(Empty((cAliasCliFor)->CODPAIS), "1058", (cAliasCliFor)->CODPAIS))// RetCodPaisIBGE()) //Default := Brasil // Código do IBGE do Pais
oNFe:SetValue("dest" , "xPais" , cNomePais) // Pais
oNFe:SetValue("dest" , "fone" , ClearChar((cAliasCliFor)->FONE ,{"-","(",")"," ","."}) ) // Telefone
oNFe:SetValue("dest" , "indIEDest", If("ISENTO" $ cDestIe .or. Empty(Alltrim(cDestIe)), "2","1") )
If ! ( "ISENTO" $ cDestIe .or. Empty(Alltrim(cDestIe)) )
oNFe:SetValue("dest" , "IE" , ClearChar(cDestIe ,{".","-"} ) ) // Inscrição Estadual
Endif
oNFe:SetValue("dest" , "ISUF" , cSuframa ) // Inscrição Suframa
oNFe:SetValue("dest" , "email" , (cAliasCliFor)->EMAIL ) // Email

Hergon, Grato pela atenção

vou dar uma estudada, mas em princípio é isto. Como faz no caso de estrangeiro e para a NFC-e?

Link to comment
Share on other sites

Crisvam, não sei se é o que você precisa, mas se utiliza a classe do Gilmer + Flexdocs, deve ser isso, espero que ajude:

// Modificação nos dados do XML a partir de 01/05/2011 obrigado pelo SEFAZ para ambiente de HOMOLOGAÇÃO
If Val(cTpAmbiente)=1 // Producao
cDestNome := If(!Empty((cAliasCliFor)->RAZAO),(cAliasCliFor)->RAZAO,(cAliasCliFor)->NOME )
cDestCnpjCpf:= If(lPosIcm,(cAliasCliFor)->CNPJ, (cAliasCliFor)->CPF)
cDestIe := (cAliasCliFor)->IEST
Else // Homologação
cDestNome := "NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL"
cDestCnpjCpf:= If(lPosIcm,(cAliasCliFor)->CNPJ, (cAliasCliFor)->CPF)
cDestIe := (cAliasCliFor)->IEST
Endif
If cUfCli <> "EX" // Só passar CNPF se não for importação/exportação.
If lPosIcm // .or. Val(cTpAmbiente)=2
oNFe:SetValue("dest" , "CNPJ" , R_CnpjLienar(cDestCnpjCpf)) // CNPJ
Else
oNFe:SetValue("dest" , "CPF" , R_CpfLienar(cDestCnpjCpf) ) // CPF
Endif
Else
oNFe:SetValue("dest" , "CNPJ" , "") // CNPJ
Endif
oNFe:SetValue("dest" , "xNome" , cDestNome )// Razão Social
oNFe:SetValue("dest" , "xFant" , " " ) // Nome Fabtasia
oNFe:SetValue("dest" , "xLgr" , Alltrim((cAliasCliFor)->TIPO)+" "+Alltrim((cAliasCliFor)->END) ) // Endereço
oNFe:SetValue("dest" , "nro" , (cAliasCliFor)->NUMERO ) // Numero do Endereço
oNFe:SetValue("dest" , "xCpl" , (cAliasCliFor)->COMPL ) // Complemento do Endereço
oNFe:SetValue("dest" , "xBairro" , (cAliasCliFor)->BAIRRO ) // Bairro
oNFe:SetValue("dest" , "cMun" , (cAliasCliFor)->CODCID ) // Código do IBGE do Municipio
oNFe:SetValue("dest" , "xMun" , (cAliasCliFor)->CIDADE ) // Municipio
oNFe:SetValue("dest" , "UF" , (cAliasCliFor)->UF ) // Estado
oNFe:SetValue("dest" , "CEP" , ClearChar( (cAliasCliFor)->CEP, {"-"}) ) // CEP
oNFe:SetValue("dest" , "cPais" , If(Empty((cAliasCliFor)->CODPAIS), "1058", (cAliasCliFor)->CODPAIS))// RetCodPaisIBGE()) //Default := Brasil // Código do IBGE do Pais
oNFe:SetValue("dest" , "xPais" , cNomePais) // Pais
oNFe:SetValue("dest" , "fone" , ClearChar((cAliasCliFor)->FONE ,{"-","(",")"," ","."}) ) // Telefone
oNFe:SetValue("dest" , "indIEDest", If("ISENTO" $ cDestIe .or. Empty(Alltrim(cDestIe)), "2","1") )
If ! ( "ISENTO" $ cDestIe .or. Empty(Alltrim(cDestIe)) )
oNFe:SetValue("dest" , "IE" , ClearChar(cDestIe ,{".","-"} ) ) // Inscrição Estadual
Endif
oNFe:SetValue("dest" , "ISUF" , cSuframa ) // Inscrição Suframa
oNFe:SetValue("dest" , "email" , (cAliasCliFor)->EMAIL ) // Email

Hergon,

Grato pela atenção

Vou estudar, mais é mais ou menos isto mesmo.

Link to comment
Share on other sites

o que precisa ser alterado ? pq os metodos da dll flexdocs BuscaNfe2G e EnviaNfe2g pelo que vi é so alterar a versao de 2.00 para 3.10

e isso tambem

desregistrar a dll anterior
tenho que atualizar com o arquivo NFe_Util200v2.03a.zip
registrar a dll nova

o que + precisa ser alterado para nfe apenas pois meu estado nao adotou a nfe-c e adotou a blindada (adoro isso)

Link to comment
Share on other sites

o que precisa ser alterado ? pq os metodos da dll flexdocs BuscaNfe2G e EnviaNfe2g pelo que vi é so alterar a versao de 2.00 para 3.10

e isso tambem

desregistrar a dll anterior
tenho que atualizar com o arquivo NFe_Util200v2.03a.zip
registrar a dll nova

o que + precisa ser alterado para nfe apenas pois meu estado nao adotou a nfe-c e adotou a blindada (adoro isso)

Existe campos novos e restrições completamente diferente da versão 2.0, Sem contar que o lay out da NF-e e NFC-e foi unificado na versão 3.10

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...