marceloCR

é bem isso que está acontecendo mesmo. Gilmer, você pode nos ajudar nesse problema?

ElseIf oItem:ClassName=="TVONFEPAG" // pag nPos:=ascan(::axNodes, {|x| x[1]=="pag" } ) if nPos==0 nPos:=ascan(::axNodes, {|x| x[1]=="cobr" } ) if nPos==0 nPos:=ascan(::axNodes, {|x| x[1]=="transp" } ) Endif Ains(::axNodes,nPos+1) ::axNodes[nPos+1]:={ "pag", {}, 0 } nPos:=ascan(::axNodes, {|x| x[1]=="pag" } ) Endif if nPos!=0 aadd(::axNodes[nPos,2], {"detPag" , ::StruDetPag(oItem) } ) aadd(::axNodes[nPos,2], {"vTroco", TVoNFeItem():new("N", 0, 1,15, 02,,oItem:vTroco ) } ) Endif Endif Sim, esta versão mesmo. Só que essa parte está diferente do que você postou.

Esse método esta diferente do meu. Você usou a ultima versão disponibilizada pelo Gilmer do dia 12/07? METHOD AddItem( oItem ) CLASS TVoNFe2G local cID, axArray := {},nPos If oItem:Classname=="TVONFEPROD" cID := 'nItem="'+alltrim(str(len(::axItems)+1) ) +'"' aadd(::axItems, {cId,{} } ) aadd(::axItems[len(::axItems),2], {"prod" , ::StruProduto(oItem), 1 } ) aadd(::axItems[len(::axItems),2], {"imposto" , ::StruImpostos(oItem), 1 } ) aadd(::axItems[len(::axItems),2], {"infAdProd", TVoNFeItem():New("C", 0, 1,500,,,oItem:infAdProd )} ) ElseIf oItem:ClassName=="TVONFEREFNF" nPos:=ascan(::axNodes, {|x| x[1]=="ide" } ) if nPos!=0 Do Case Case ::nTipoRef==1 AAdd(::axNodes[nPos,2],{"NFref" , ::SetRefNfe(oItem) }) Case ::nTipoRef==2 AAdd(::axNodes[nPos,2],{"NFref" , ::SetrefNF(oItem) }) Case ::nTipoRef==3 AAdd(::axNodes[nPos,2],{"NFref" , ::SetrefECF(oItem) }) Case ::nTipoRef==4 AAdd(::axNodes[nPos,2],{"NFref" , ::SetrefNFP(oItem) }) EndCase Endif ElseIf oItem:ClassName=="TVONFECOBR" //if ::cModeloDoc == "55" nPos:=ascan(::axNodes, {|x| x[1]=="cobr" } ) if nPos==0 nPos:=ascan(::axNodes, {|x| x[1]=="transp" } ) Ains(::axNodes,nPos+1) ::axNodes[nPos+1]:={"cobr" , {},0 } nPos:=ascan(::axNodes, {|x| x[1]=="cobr" } ) if nPos!=0 aadd(::axNodes[nPos,2], {"fat" , ::StruFatura(oItem) } ) Endif Endif if nPos!=0 //aadd(::axNodes[nPos,2], {"fat" , ::StruFatura(oItem) } ) aadd(::axNodes[nPos,2], {"dup" , ::StruDuplicata(oItem) } ) Endif ElseIf oItem:ClassName=="TVONFEPAG" // pag nPos:=ascan(::axNodes, {|x| x[1]=="pag" } ) if nPos==0 nPos:=ascan(::axNodes, {|x| x[1]=="cobr" } ) if nPos==0 nPos:=ascan(::axNodes, {|x| x[1]=="transp" } ) Endif Ains(::axNodes,nPos+1) ::axNodes[nPos+1]:={ "pag", {}, 0 } nPos:=ascan(::axNodes, {|x| x[1]=="pag" } ) Endif if nPos!=0 aadd(::axNodes[nPos,2], {"detPag" , ::StruDetPag(oItem) } ) aadd(::axNodes[nPos,2], {"vTroco", TVoNFeItem():new("N", 0, 1,15, 02,,oItem:vTroco ) } ) Endif Endif Return( Nil )

Eu já faço diferente: a parte de duplicatas e pagamentos antes do Informações Adicionais Qual a sequencia correta?

isso ok, nos sabemos o que compõe esse grupo "exporta". agora como usar na classe? (pois acontece erro ou não é gerada).

Gilmer, da erro ao criar o xml, conforme relatei no outro post: Error description: Error BASE/1111 Argument error: LEN Args: [ 1] = U Stack Calls =========== Called from: => LEN( 0 ) Called from: VoNFe2g.prg => TVONFE2G:SETVALUEII( 265 ) Called from: VoNFe2g.prg => TVONFE2G:SETVALUE( 249 ) A sequencia correta das tags é essa? ..... oNFe:SetValue("infAdic", 'infCpl' , 'Empresa optante pelo Simples Nacional' ) oNFe:SetValue("exporta", 'UFSaidaPais' , 'SP' ) oNFe:SetValue("exporta", 'xLocExporta' , 'SAO PAULO' ) cDocXml := "" if oNFe:GerarXml( @cDocXml ) .....

acontece isso?

Estou fazendo assim. oNFe:SetValue("exporta", "UFSaidaPais" , "SP" ) oNFe:SetValue("exporta", "xLocExporta" , "SAO PAULO" ) E acontece erro abaixo. Mesma coisa se usar o xPed no grupo "compra" Error description: Error BASE/1111 Argument error: LEN Args: [ 1] = U Stack Calls =========== Called from: => LEN( 0 ) Called from: VoNFe2g.prg => TVONFE2G:SETVALUEII( 265 ) Called from: VoNFe2g.prg => TVONFE2G:SETVALUE( 249 )

Gilmer Existe o xPed e o nItemPed que são informações de compra por produto. Esses estão OK. Mas também existe o Grupo Compras que fica localizado no final do XML onde informamos também o xPed. No manual está em "ZB Informações de Compras". Até a versão anterior estava OK. Não tem como ajustar isso na nova? Obrigado.

Também estou com este problema, ate abri um topico a respeito. Em notas de exportação, o erro também acontece. Você conseguiu resolver?

O campo cNF é um campo numérico aleatório de 8 posições que compõe a chave de acesso, e deve estar no campo cNF do XML e na posição 36 a 43 da chave.

Esse grupo só deve ser informado em operação interestadual para consumidor final não contribuinte. Não seria isso?

Ao fazer uma nota com a nova versão da classe para NFe 4.0, ao preencher o grupo compras ou o grupo comercio exterior, acontece erro na função abaixo em VoNFe2g.prg: Error description: Error BASE/1111 Argument error: LEN Args: [ 1] = U Stack Calls =========== Called from: => LEN( 0 ) Called from: VoNFe2g.prg => TVONFE2G:SETVALUEII( 265 ) Called from: VoNFe2g.prg => TVONFE2G:SETVALUE( 249 ) //Comercio Exterior aadd(::axNodes, {"exporta", {}, 0 } ); nPos := len(::axNodes) aadd(::axNodes[ nPos ][2], {"UFSaidaPais" , TVoNFeItem():New("C", 1, 2,2 ) } ) aadd(::axNodes[ nPos ][2], {"xLocExporta", TVoNFeItem():New("C", 1, 1,60 ) } ) aadd(::axNodes[ nPos ][2], {"xLocDespacho", TVoNFeItem():New("C", 0, 1,60 ) } ) //Informaçóes de compras aadd(::axNodes, {"compra", {}, 0 } ); nPos := len(::axNodes) aadd(::axNodes[ nPos ][2], {"xNEmp", TVoNFeItem():New("C", 0, 1, 17, ) } ) aadd(::axNodes[ nPos ][2], {"xPed" , TVoNFeItem():New("C", 0, 1, 60, ) } ) aadd(::axNodes[ nPos ][2], {"xCont", TVoNFeItem():New("C", 0, 1, 60, ) } ) como resolver?

Ola a todos! Alguem utiliza a SQLLIB com o Postgres? Como faço para conectar o banco Postgres com a SQLLIB? No MySQL utilizamos a libmysql.lib que vem junto. E no Postgres? Att Marcelo Campos

voce usa nfe com flexdocs + classe do gilmer? ele tb tem de cte! Att Marceloc

Qual o modal vitor? Rodoviário? Para qual Estado? Att Marcelo

Judson segue meu email: marcelo_crici@hotmail.com agradeço desde já. Marcelo Campos FWH905 + xHarbour121 + WorkShop + SQLLib

Talvez seja algum caracter especial. Retire-o do seu texto, caso tenha, e faça novo envio. Marcelo Campos FWH905 + xHarbour121 + WorkShop + SQLLib

Agradeço aos links e respostas dos colegas. Alguém mais disponibilizaria alguma solução? Marcelo Campos FWH905 + xHarbour121 + WorkShop + SQLLib

Ola colegas! Alguém já conseguiu alguma solução para salvar o preview dos relatórios em formato PDF, usando o PDFCreator ou outra ferramenta, integrando-a ao FWH ?? Acompanhei, há um tempo, alguns comentários de usuários que estavam testando a DLL do PDFCreator e também do Bullzip. Alguém conseguiu algo mais que poderia contribuir para mim e para o fórum? Marcelo Campos FWH905 + xHarbour121 + WorkShop + SQLLib

Ola colegas! Alguém já conseguiu alguma solução para salvar o preview dos relatórios em formato PDF, usando o PDFCreator ou outra ferramenta, integrando-a ao FWH ?? Acompanhei, há um tempo, alguns comentários de usuários que estavam testando a DLL do PDFCreator e também do Bullzip. Alguém conseguiu algo mais que poderia contribuir para mim e para o fórum? Marcelo Campos FWH905 + xHarbour121 + WorkShop + SQLLib

*desenhados

Joao Como fica a qualidade do arquivo PDF gerado nessa nova versao no FWH? Relatorios em formato gráfico, desenhandos, tipo bloquetos ou duplicatas, o resultado do PDF fica igual ao preview? MarceloCampos

Kapiaba, você conseguiu fazer rodar o WorkShop no win 7 64 bits?

como resolveu amigo?