NFE cupom fiscal vinculado

[Luiz Fernando]

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

 

[kapiaba]

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?

 

[Luiz Fernando]

 

 

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
 

 

[kapiaba]

Ué, passe-o por referência dentro do programa principal:

 

IF for isso

  nTipoRef := 3

ENDIF

 

[Luiz Fernando]

 

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