Luiz Fernando Posted October 15, 2018 Report Share Posted October 15, 2018 Pessoal veja se alguém pode me ajudar, a classe nova do Gilmer a variavel nTipoRef esta como default com o valor de 1, como mudar ela para o valor 3 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 15, 2018 Report Share Posted October 15, 2018 METHOD New(cPathNFe,nTipoRef,cModeloDoc) CLASS TVoNFe2G Local nPos #IFDEF __DOS__ DEFAULT cPathNFe:=CurDir(CurDrive()) #ELSE DEFAULT cPathNFe:=curdrive()+":\"+GetCurDir() #ENDIF Default nTipoRef := 1, cModeloDoc:="55" // Isso aqui? Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted October 15, 2018 Author Report Share Posted October 15, 2018 METHOD New(cPathNFe,nTipoRef,cModeloDoc) CLASS TVoNFe2G Local nPos #IFDEF __DOS__ DEFAULT cPathNFe:=CurDir(CurDrive()) #ELSE DEFAULT cPathNFe:=curdrive()+":\"+GetCurDir() #ENDIF Default nTipoRef := 1, cModeloDoc:="55" // Isso aqui? Sim Kapiaba, se eu alterar direto no default para 3 ira dar certo no caso de cupom fiscal referenciado, mais dai nos outros casos ira dar erro, mandar o valor junto ao method NEW terei que mudar a logica minha aqui, queria ver com os amigos se eles arrumaram alguma forma diferente de fazer isto. Obg Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 15, 2018 Report Share Posted October 15, 2018 Ué, passe-o por referência dentro do programa principal: IF for isso nTipoRef := 3 ENDIF Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted October 25, 2018 Author Report Share Posted October 25, 2018 Ué, passe-o por referência dentro do programa principal: IF for isso nTipoRef := 3 ENDIF Kapiaba qdo estou criando nunca irei saber se é 1 ou 3, este é o problema de passar como referencia, vou ter que mudar minha logica aqui, exatamente o que não queria, mais como não deve mais nenhuma sugestão mãos ao trabalho. oNfe := TVoNFe2g():New() oNFe:SetValue("ide" , 'cUF' , RetCodUFIBGE(aEmpresa[1,1]) ) oNFe:SetValue("ide" , 'cNF' , strzero( val("10102"),8) ) oNFe:SetValue("ide" , 'natOp' , aDetalhe[1,6]) oNFe:SetValue("ide" , 'mod' , "55" ) oNFe:SetValue("ide" , 'serie' , nSerie ) oNFe:SetValue("ide" , 'nNF' , _notafiscal ) // Numero Nota Fiscal oNFe:SetValue("ide" , 'dhEmi' , _data ) // aDetalhe[1,7] ) oNFe:SetValue("ide" , 'dhSaiEnt' , _saida ) // aDetalhe[1,8] ) // data de saida oNFe:SetValue("ide" , 'tpNF' , aDetalhe[1,4] ) // 0-entrada 1-saida Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.