gilmer

Boa Tarde,

Amanha estarei disponibilizando outra.

E o que tinha de errado na opção 1 ?

Bom Dia,

  O tipo 3 usa o CDO, não esta usando da flexdocs.

Bom Dia,

Se você esta passando zero! altere esta linha

aadd(::axNodes[nPos,2], {"vTroco", TVoNFeItem():new("N", 0, 1,15, 02,,oItem:vTroco )  }  )

aadd(::axNodes[nPos,2], {"vTroco", TVoNFeItem():new("N", 1, 1,15, 02,,oItem:vTroco )  }  )

Que eu saiba a flexdocs não mudou nada, passe o parâmetro tipo 1 que irá usar o recurso da flexdocs

Caso não passe no New, default será 1, neste caso terá que abrir um chamado na flexdocs

A Flexdocs tem o cancelamento por evento

http://www.flexdocs.com.br/guianfe/WS.canc.cancelaEvento.html

este permite passar a diferença de fuso, quando não enviado ela passa o padrão (windows).

Não é assim que usa

oRef:=TVoNfeRefNf()

oRef:mod:="2D"
 oRef:nEcf:="001"
oRef:nCOO:="0001" 

oNfe:AddItem(oRef)

// Para cada modelo usa as tags necessárias 

Verifique se na classe, não esta passando a chave do certificado de forma fixa, mesmo você selecionando.

Bom Dia,

      Em anexo uma nova atualização.

vonfeutil2g_v4_3.zip

Na rotina ele já ira apresentar uma mensagem com o MsgStop que teve erro, já esta dentro da rotina.

Eu sugiro usar apenas uma vez antes de iniciar o processo de transmissão de nota, ou seja, na primeira vez da criação do objeto TVoNfeUtil2G

Bom Dia,

   Foi inserido tags novas, como também ajustado o manifesto para versão 4.0.

   Inserido métodos para NFC-e, contribuição Marcelo Marca.

vonfeutil2g_v4_2.zip

Bom Dia,

Modifique isto no seu fonte 

METHOD StruPIS( oItem ) CLASS TVoNFe2G
   local cST,nPos
   local axArray := {}

    // Marcelo Ferro da Silveira
   IF Empty(oItem:CST_PIS) .and. ::cModeloDoc=="65"
      Return axArray
   Else
      cST := if(empty(oItem:CST_PIS), "", oItem:CST_PIS)
   ENDIF

   if cST IN "01;02"
 

https://www.oobj.com.br/bc/article/rejeição-851-soma-do-valor-das-parcelas-difere-do-valor-líquido-da-fatura-como-resolver-764.html

A SEFAZ  provavelmente começou a validar a informação da tag (indPag)

A Sefaz disponibiliza o manifesto para baixar, mas é necessário ter certificado 

Mas a ::cModeloDoc é string e não logica, no seu fonte você altera o valor dela?

Bom Dia,

A instalação da DLL não foi completa, esta faltando esta pasta

Não foi possível entender 

 

   IF Empty(oItem:CST_Cofins) .and. ::cModeloDoc=="65"
      Return axArray
   ENDIF

::cModeloDoc retorna .F.

Não foi possível entender 

Bom Dia,

   Em anexo o arquivo 

vonfeutil2g_v4_1.rar

Bom Dia

Vou colocar hoje uma atualização com a mesma e outras coisas.

Bom Dia

     Sim! ou apenas não passe o parâmetro  e irá usar o default.

Bom Dia,

   continua nos itens, verifique na classe no fonte, alguns o nome começa com o nome da tag e outras não.

// Combustivel
   DATA Comb_cProdANP
   DATA Comb_CODIF
   DATA Comb_qTemp
   DATA Comb_UFCons
   DATA Comb_qBCProd
   DATA Comb_vAliqProd
   DATA Comb_vCIDE

   DATA ISSvBC
   DATA ISSvAliq
   DATA ISSvISSQN
   DATA ISScMunFG
   DATA ISScListServ
   DATA ISScSitTrib

   //Veiculos novos
   DATA Veic_TpOp
   DATA Veic_Chassi
   DATA Veic_cCor
   DAtA Veic_xCor
   DATA Veic_Pot
   DATA Veic_Cilin
   DATA Veic_PesoL
   DAtA Veic_PesoB
   DATA Veic_nSerie
   DATA Veic_TpComb
   DATA Veic_nMotor
   DATA Veic_CMT
   DATA Veic_dist
   DATA Veic_AnoMod
   DATA Veic_AnoFab
   DAtA Veic_TpPint
   DATA Veic_TpVeic
   DATA Veic_espVeic
   DATA Veic_Vin
   DATA Veic_condVeic
   DATA Veic_cMod
   DATA Veic_cCorDENATRAN
   DATA Veic_lota
   DATA Veic_tpRest

Sim! exatamente isto.

Esta ferramenta paga é muito bom para assinatura 

http://www.chilkatsoft.com

 

como vcs estao fazendo com TVoNFePag?

            oItem := TVoNFePag()
            WITH OBJECT oItem
                 :IndPag   := "1"         // 0 - pagamento à vista; 1 - pagamento à prazo, 2 - outros.
                 :tPag     := "01"        // 01=Dinheiro; 02=Cheque; 03=Cartão de Crédito; 04=Cartão de Débito; 05=Crédito Loja; 10=Vale Alimentação; 11=Vale Refeição; 12=Vale Presente; 13=Vale Combustível; 15=Boleto Bancário; 90=Sem Pagamento; 99=Outros.
                 :vPag     := nTotalPag
            END
            oNFe:AddItem( oItem )

coloquei antes da duplicatas para teste... mais retorna o seguinte erro:

como vcs estao fazendo ?

Bom Dia,

   Ele não deve estar encontrando o XML ao usar o BUSCANFE, apresentando este erro.

Não irá existir mais emissor gratuito.