Pedido de compra na NFE

[JoséQuintas]

Surgiu agora uma coisa:
o cliente do cliente quer que coloque o número do pedido de compra, e código dos itens.

O que ocorre?

Isso existia na nota 3.10, mas não existe na 4.00
Alguma dica sobre isso?

[JoséQuintas]

Manual 3.10

Manual 4.00

[pauloa1]

José ! Não sei se é a mesma coisa, mas eu uso pelo acbr na 4.0 :

"xPed="+ALLTRIM(Ifiscal_sql->XPED)+CRLF+; // n. pedido
"nItemPed="+Ifiscal_sql->NITEMPED+CRLF+; // n.Item pedido

Paulo

[JoséQuintas]

Exatamente isso, mas na 4.00 esses campos não existem.
Poderia, por favor, verificar no XML gerado aonde eles são colocados?

[JoséQuintas]

Acho que vale então o manual da 3.10.... rs

Só Brasil mesmo... Tem um manual pra nota que não vale mais, mas que ainda vale...

E um manual novo incompleto....

Vou colocar antes dos blocos específicos

Código: Selecionar todos

   cXml += XmlTag( "indTot", "1" ) // Indica se soma produto
   NfeBlocoProdutoImporta( @cXml )
   NfeBlocoProdutoCompra( @cXml )  // <<<-----------------
   NfeBlocoProdutoVeiculo( @cXml )
   NfeBlocoProdutoMedicamento( @cXml )
   NfeBlocoProdutoArmamento( @cXml )
   NfeBlocoProdutoCombustivel( @cXml )

[pauloa1]

São gerados da tag dos produtos.

[JoséQuintas]

Ok, valeu.

vale o que está no manual 3.10
os campos ficam depois das informações de importação, e antes dos detalhamentos específicos, mas dentro do produto. <prod>

[JoséQuintas]

Agora que fui colocar em prática que vi:
Há o limite de 6 números para o código do produto, e só podem ser números.

Parece piada...
O único cliente que pediu isso usa 7 números para o pedido, ou seja, não dá pra colocar kkkkkkkkkkkk

Agora é com o cliente, decidir o que vai querer....

[JoséQuintas]

Versão final.
Aproveitei a tabela de importação de XML pra configurar a conversão de produto.
Essa é uma das tabelas que ficam só em MySQL.

Código: Selecionar todos

STATIC FUNCTION NfeBlocoProdutoCompra( cXml )

   LOCAL xItem, xPedido
   LOCAL cnMySql := ADOClass():New( AppcnMySqlLocal() )

   cnMySql:cSql := "SELECT * FROM JPEDICFG WHERE " + ;
      "EDTIPO=" + StringSql( StrZero( 1, 6 ) ) + ;
      " AND EDCODJPA=" + StringSql( jpitem->ieItem ) + ;
      " AND EDCODEDI1=" + StringSql( jpcadas->cdCnpj )
   xItem := cnMySql:ReturnValueAndClose( "EDCODEDI2" )

   xItem := Right( SoNumeros( xItem ), 6 )
   xItem := StrZero( Val( xItem ), 6 ) // Limite fazenda 6 números

   xPedido := Left( AllTrim( jppedi->pdCli ), 15 ) // limite fazenda 15 caracteres

   IF ! Empty( jppedi->pdPedCli )
      cXml += XmlTag( "xPed", xPedido )
   ENDIF
   IF Val( xItem ) != 0
      cXml += XmlTag( "nItemPed", xItem )
   ENDIF

   RETURN NIL

[JoséQuintas]

Não se trata de código de produto, mas sim a ordem sequencial no pedido de compra.
Agora, só digitando mesmo.