Moderador: Moderadores
RUN START arquivo.xml
PROCEDURE PTES0190
LOCAL oControl
CLS
oControl := wvgActivexControl():New(,, { -1, -1 }, { -MaxRow() + 1, -MaxCol() + 1 } )
oControl:CLSID := "\\serverjpa\inetpub\wwwroot\xmlpdf\xxx\xxx.XML"
oControl:Create()
Inkey(0)
RETURN
hbmk2: Erro: Referenciado, faltando, mas fun‡äes desconhecida(s):
XMLTODOCCTEEMI(), XMLTODOCMDFEEMI(), XMLTODOCNFECANCEL(),
XMLTODOCCTECANCEL(), XMLTODOCNFECCE(), XMLTODOCMDFECANCEL(),
XMLTODOCMDFEENC(), SONUMEROS(), CALCULADIGITO(), VALIDCNPJCPF(),
XMLNODE(), XMLELEMENT(), XMLDATE()
FOR EACH oProduto IN ( oDoc:Produto )
FOR nCont = 1 TO Len( oDoc:Produto )
? oDoc:Produto[ nCont ]:Código
? oDoc:produto[ nCont ]:Nome
NEXT
FOR EACH oElemento IN oDoc:Produto
? oElemento:Código
? oElemento:Nome
NEXT
CREATE CLASS NfeProdutoClass
VAR Codigo INIT ""
VAR Nome INIT ""
VAR CfOp INIT ""
VAR NCM INIT ""
VAR GTIN INIT ""
VAR Anp INIT ""
VAR Unidade INIT ""
VAR Qtde INIT 0
VAR ValorUnitario INIT 0
VAR ValorTotal INIT 0
...
oNfe := XmlToDoc( MemoRead( cArq ) )
FOR EACH oProduto IN ( oNfe:Produto )
? oProduto:Nome
? oProduto:Codigo
? oProduto:GTIN
? oProduto:GTINt
? oProduto:Qtde
? oProduto:ValorUnitario
? oProduto:ValorTotal
? oProduto:NCM
? oProduto:CEST
? oProduto:ValorDesconto
? oProduto:CFOP
? oProduto:IcmsSt:Base
? oProduto:IcmsSt:Aliquota
? oProduto:IcmsSt:Valor
? oProduto:Icms:Cst
? oProduto:Ipi:Valor
? oProduto:Ipi:Aliquota
NEXT
cCGC := oNfe:Emitente:Cnpj
cNOME := oNfe:Emitente:Nome
*cFantasia := oNfe:Emitente:Fantasia // Implementar na classe
cEndereco := oNfe:Emitente:Endereco
cNumero := oNfe:Emitente:Numero
cBairro := oNfe:Emitente:Bairro
cCidadeCod := oNfe:Emitente:CidadeIbge
cCidade := oNfe:Emitente:Cidade
cEstado := oNfe:Emitente:Uf
cCep := oNfe:Emitente:Cep
cInsc_Est := oNfe:Emitente:InscricaoEstadual
cTelefone1 := oNfe:Emitente:Telefone
cCrtEmit := ''
cTelefone1 := Transform( Val( cTelefone1 ), '( 99)9999-9999' )
For EACH oProduto IN ( oNfe:Produto )
cNompro_ := oProduto:Nome
cCodBarra := oProduto:GTIN
nQtde_ := oProduto:Qtde
nValor_ := oProduto:ValorUnitario
nTotal_ := oProduto:ValorTotal
cUnd_ := oProduto:Unidade
Next
FOR nCont = 1 TO Len( oNfe:Produto )
? oNfe:Produto[ nCont ]:Código
? oNfe:produto[ nCont ]:Nome
NEXT
LOCAL aProdutosLst, oProduto
aProdutosLst := { "PANETONE", "CASTANHA", "PERU", "ARVORE", "PRESENTE" }
FOR EACH oProduto IN aProdutosLst
? oProduto
NEXT
FOR EACH xVar IN <array, string, etc>
.... xVar
NEXT EACH
WITH OBJECT <oBjeto>
? :FieldGet(x)
SWITCH :FieldGet('cf_tipo')
CASE 1
.... ; EXIT
CASE 2
..... ; EXIT
OTHERWISE
END SWITCH
END WITH
Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes