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?

Moderador: Moderadores
cXml += XmlTag( "indTot", "1" ) // Indica se soma produto
NfeBlocoProdutoImporta( @cXml )
NfeBlocoProdutoCompra( @cXml ) // <<<-----------------
NfeBlocoProdutoVeiculo( @cXml )
NfeBlocoProdutoMedicamento( @cXml )
NfeBlocoProdutoArmamento( @cXml )
NfeBlocoProdutoCombustivel( @cXml )
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
Retornar para Legislação Fiscal e Tributária
Usuários vendo este fórum: Nenhum usuário registrado online e 12 visitantes