crisvam Posted June 16, 2018 Report Share Posted June 16, 2018 Pessoal Nas informações de pagamento, qdo o pag é cartão foi acrescentado a opção YA09 vTroco. Na classe que o Gilmer postou não tem essa opção, quem usa a classe como estão procedendo Grato a todos Quote Link to comment Share on other sites More sharing options...
gilmer Posted June 18, 2018 Report Share Posted June 18, 2018 Bom Dia Vou colocar hoje uma atualização com a mesma e outras coisas. Quote Link to comment Share on other sites More sharing options...
crisvam Posted June 18, 2018 Author Report Share Posted June 18, 2018 OK Gilmer. Grato pela atenção Quote Link to comment Share on other sites More sharing options...
gilmer Posted June 19, 2018 Report Share Posted June 19, 2018 Bom Dia, Em anexo o arquivo vonfeutil2g_v4_1.rar Quote Link to comment Share on other sites More sharing options...
crisvam Posted June 19, 2018 Author Report Share Posted June 19, 2018 Grato Gilmer Quote Link to comment Share on other sites More sharing options...
sistem Posted June 19, 2018 Report Share Posted June 19, 2018 IF Empty(oItem:CST_Cofins) .and. ::cModeloDoc=="65" Return axArray ENDIF ::cModeloDoc retorna .F. Quote Link to comment Share on other sites More sharing options...
gilmer Posted June 20, 2018 Report Share Posted June 20, 2018 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 Quote Link to comment Share on other sites More sharing options...
sistem Posted June 22, 2018 Report Share Posted June 22, 2018 Gilmer a variável retorna um valor logico alert(::cModeloDoc) exibi => .F. com isso da erro... já arrumei aqui removendo essas linhas Quote Link to comment Share on other sites More sharing options...
gilmer Posted June 25, 2018 Report Share Posted June 25, 2018 Mas a ::cModeloDoc é string e não logica, no seu fonte você altera o valor dela? Quote Link to comment Share on other sites More sharing options...
sistem Posted June 25, 2018 Report Share Posted June 25, 2018 Mas a ::cModeloDoc é string e não logica, no seu fonte você altera o valor dela? não alterei nada alem dos paths. irei ver o motivo e retorno. Quote Link to comment Share on other sites More sharing options...
jfaguiar Posted July 2, 2018 Report Share Posted July 2, 2018 Olá amigos. atualizei a classe e deu esse erro. alguém sabe como resolver?: Application =========== Path and name: C:\Siscom\SGCW.Exe (32 bits) Size: 3,889,664 bytes Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20130422) FiveWin Version: FWHX 13.07 Windows version: 5.1, Build 2600 Service Pack 2 Time from start: 0 hours 0 mins 31 secs Error occurred at: 02/07/18, 09:23:33 Error description: Error BASE/1109 Erro nos parametros: $ Args: [ 1] = U [ 2] = C 01;02 Stack Calls =========== Called from: vonfe2g_v4.prg => TVONFE2G:STRUPIS( 732 ) Called from: vonfe2g_v4.prg => TVONFE2G:STRUIMPOSTOS( 395 ) Called from: vonfe2g_v4.prg => TVONFE2G:ADDITEM( 1267 ) Quote Link to comment Share on other sites More sharing options...
gilmer Posted July 3, 2018 Report Share Posted July 3, 2018 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" Quote Link to comment Share on other sites More sharing options...
jfaguiar Posted July 3, 2018 Report Share Posted July 3, 2018 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" Bom dia. Alguém teria a vonfe2g_v4.prg e vonfeutil2g_v4.prg corrigida ? Estou tentando aqui mas não estou conseguindo de jeito nenhum gerar NF-e com duplicatas. Obrigado 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.