maudruidas

Pessoal desculpa por estar postando aqui sobre este assunto, gostaria de saber se é com o Sr. Gilmer que adquiro a nova versão do Fivewin. Já mandei um email ontem cedo, mas ainda nada. este é o email que enviei. Bom dia Sr. Gilmer. Gostaria de saber se é com o Sr. que adquiro a nova versão 16.8 do Fivewin. Minha versão é muito antiga 7.07. Gostaria de saber o valor da atualização e como faço o pagamento. Obrigado Maurício, Maudruidas no Site da Fivewin.

Pessoal acho que vocês não entenderam, o problema não está em desabilitar o botão, isto está funcionando tanto da forma que eu fiz como com o disable() que o Kapiaba sugeriu. O problema está na imagem que não muda nada e o texto que fica um borrão.

Desculpa, esqueci de colocar o fonte kkk é que a minha imagem aqui no site não está aparecendo. Porquê? Coloquei apenas uma imagem no botão. REDEFINE BTNBMP OBTN2 ID 109 ; RESOURCE "LUPA5" 2007 OF ODLNF ; PROMPT " &Pré-Visualizar Danfe" FONT OFNC LEFT WHEN(IF(49->SITUACAO="Cancelada ",.F.,.T.)); ACTION IMPDANFE(1) oBtn2:cToolTip = "Vê o Danfe da Nfe Selecionada" oBtn2:lTransparent = .T.

Boa noite, ao desabilitar meu BTNBMP ele está borrando e o desenha não desabilita. O que será?

Pessoal tenho um sistema antigo em clipper que usa NTX com DBT. Preciso converter para CDX FPT. Alguém tem algum exemplo. Os da Internet dão erro na compilação.

Pessoal estou usando o btmbmp com a opção 2007, porém não gostei das cores (azul depois laranja). Como faço para mudar?. Vi que existe as opções 2010 e 2013, mas não estou sabendo usar. REDEFINE BTNBMP oBtn7 ID 135 ; RESOURCE "CONSULTA" 2007 PIXELS OF ODLNF ; PROMPT " &Pesquisar" FONT OFNC LEFT ; ACTION(PESQNF(PER1,PER2,TPNF,STNF,SER,NF1,NF2,CNPJ,CHA),(OLBX:SETFOCUS(),OLBX:REFRESH()))

Boa noite. gostaria de saber como faço para importar meu arquivo TXT para um DBF. Em Clipper eu fazia assim: DIR := ".\PEDIDO\"+XREP+"\CLIENTEN.TXT" VDIR := FOPEN(DIR,0) IF FERROR()=0 SELE 51 ZAP ****************** CLIENTES NOVOS OU ALTERADOS APPEND FROM &DIR SDF e em xHarbour ?

Boa tarde, gostaria de saber qual ferramenta devo usar com o Workshop, já tentei todas opções e dá eero ao criar a Dialog.

Pessoal, boa tarde, alguns estados estão obrigando a emitir a GNRE para as Nfes interestaduais. Alguem já fez algo a respeito ? pelo que entendi tem ser feito quase igual a uma Nfe.

Bom dia, atualmente para fazer meus relatórios estou utilizando o Timprime e Utilprn, porém eles não tem uma opção de gerar PDF no Preview. Alguém saberia me dizer uma forma de gerar os mesmos relatórios também em PDF?.

Alguém poderia me informar sobre este erro de grupo de ICMS? Uso o programa do governo e no programa de teste funciona normalmente.

Pessoal após voltar o sistema da SEFAZ SP está dando o erro de rejeição 223. Verifiquei em alguns links e eles falam que pode ser um problema na SEFAZ, pois o certificado do cliente é o mesmo, e até o dia 31 estava funcionando. Alguém sabe algo a respeito. Obrigado.

Pessoal estou desde cedo em um cliente tentando enviar notas e não consigo transmitir, paraece que está fora do ar, inclusive o site deles. Alguém sabe algo a respeito?

Pessoal, alguém tem pronto como fazer o boleto do Banco Santander? Já li o Layout deles, mas é um pouco complicado, é cheio de exigências.

Valeu é o que eu precisava. Obrigado.

PESSOAL ESTOU COM SEGUINTE PROBLEMA, SEMPRE UTILIZEI O DBUCDX PARA DAR MANUTENÇÃO NOS MEUS ARQUIVOS DBF, PORÉM ELE ESTÁ MEIO LIMITADO (NÃO MOSTRA TODOS CAMPOS). BAIXEI O DBF MANAGER POR 30 DIAS, ELE NÃO MOSTRA TODOS REGISTROS. QUAL VOCÊS ME SUGEREM, E SE PODER ME ARRUMAR, AGRADEÇO. OBRIGADO MAURÍCIO.

Kapiaba, obrigado por tentar me ajudar novamente, já havia desistido kkk. A versão é a 7.01. Qual é esta que você me enviou ?

Pessoal já fiz de tudo e não funciona. Será que alguém tem algum exemplo feito com o combo, que funciona ?

Kapiaba, fiz alterações no programa conforme o link que me enviou acima. porém o problema continua, veja abaixo: aItems := { "CARTEIRA", "CHEQUE", "BOLETO" } aData := {"CARTEIRA", "CHEQUE", "BOLETO" } nColum := 4 cField := "FORMA" ADD COLUMN TO BROWSE OLPAR COMBOBOX SIZE 100 HEADER "Forma Pgto" ; DATA ComboWBlock( OLPAR, cField, nColum, { aItems, aData } ) ; EDITABLE MOVE DT_MOVE_NEXT; 3DLOOK TRUE,TRUE ALIGN DT_CENTER Veja a imagem ao entrar as formas de pagamento Selecionando o Combo Após selecionar Boleto

kapiaba adicionei o POSTEDIT nesta coluna para chamar uma função, mas não resolveu ADD COLUMN TO BROWSE OLPAR SIZE 100 HEADER "Forma Pgto" ; DATA FieldWBlock( "FORMA", Select() ); EDITABLE MOVE DT_MOVE_NEXT; 3DLOOK TRUE,TRUE ALIGN DT_CENTER POSTEDIT ATBROW(OLPAR) FUNCTION ATBROW(OLPAR) SELE 39 dbGoTop() OLPAR:UpStable() OLPAR:Refresh() RETURN(.T.)

Pessoal bom, estou com o seguinte problema dentro do meu Browse tem uma coluna que é Combo. Ele mostra os dados de uma tabela (Formas de Pgto), porém ao selecionar a opção do combo ele não atualiza o mesmo, sempre mostra a primeira opção. Quando gravo no Banco ele grava atualizado. É como faltasse dar um Refresh(). Será que alguém pode me ajudar. Tabela com as formas de Pgto SELE 40 DbEval( { || AAdd(aFORM, FORMA ) } ) Tabela Temporária que recebe as parcelas. SELE 39 ZAP GO TOP ****************************** PARCELAS REDEFINE BROWSE OLPAR ALIAS 39 ; COLORS CLR_BLACK,nRGB(236, 233, 216) ID 124 OF ODLPDVP; FONT OFNC CURSOR OCUR UPDATE CELLED ADD COLUMN TO BROWSE OLPAR SIZE 60 HEADER "Parcela" ; DATA FieldWBlock( "PARCELA", Select() ) ; 3DLOOK TRUE,TRUE ALIGN DT_CENTER ADD COLUMN TO BROWSE OLPAR SIZE 70 HEADER "Vencimento" ; DATA FieldWBlock( "DATA", Select() ); EDITABLE MOVE DT_MOVE_RIGHT PICTURE "99/99/9999"; VALID { | uVar | VCAMPO(uVar,OLPAR:nRowPos,2,DAT,OLPAR)}; // NESTE PRG 3DLOOK TRUE,TRUE ALIGN DT_CENTER ADD COLUMN TO BROWSE OLPAR SIZE 80 HEADER "Valor R$" ; DATA FieldWBlock( "VALOR", Select() ); EDITABLE MOVE DT_MOVE_RIGHT PICTURE "@E 9,999.99"; VALID { | uVar | VCAMPO(uVar,OLPAR:nRowPos,3,DAT,OLPAR) }; 3DLOOK TRUE,TRUE ALIGN DT_RIGHT ADD COLUMN TO BROWSE OLPAR SIZE 100 HEADER "Forma Pgto" ; DATA FieldWBlock( "FORMA", Select() ); EDITABLE MOVE DT_MOVE_NEXT; 3DLOOK TRUE,TRUE ALIGN DT_CENTER ADD COLUMN TO BROWSE OLPAR SIZE 100 HEADER "Dia da Semana" ; DATA FieldWBlock( "DIASEM", Select() ); 3DLOOK TRUE,TRUE ALIGN DT_CENTER OLPAR:SetColor( { 1, 3, 5 }, ; { CLR_BLACK, CLR_WHITE, CLR_BLACK, ; { CLR_WHITE, CLR_BLACK }, ; // degraded cursor background color CLR_WHITE, CLR_BLACK } ) // text colors OLPAR:SetColor( { 2, 4, 6 }, ; { { CLR_WHITE, CLR_AZUL}, ; // degraded cells background color { CLR_AZUL, nRGB(1, 61, 150)}, ; // degraded CABEÇALHO backgroud color { CLR_BLUE, CLR_WHITE } } ) // degraded order column background color OLPAR:nFreeze := 1 OLPAR:nLineStyle := LINES_VERT OLPAR:lNoHScroll:=.T. OLPAR:nHeightCell+=2 OLPAR:nHeightHead+=6 OLPAR:lNoHScroll:=.T. OLPAR:lMChange:=.F. OLPAR:nAdjColumn:=2 OLPAR:LNOGRAYBAR:=.T. // Tira a Barra Cinza OLPAR:CTOOLTIP := "Duplo Click Permite Alterar Valores e Datas de Vencimento" OLPAR:aColumns[ 1 ]:lEdit := .F. OLPAR:aColumns[ 5 ]:lEdit := .F. OLPAR:SetData( 4, ComboWBlock( OLPAR, "FORMA", 4 , aFORM ) ) OLPAR:lAutoEdit := .T. (OLPAR:SETFOCUS(),OLPAR:GOTOP(),OLPAR:REFRESH())

Pessoal Bom dia, ontem estive em um Workshop da Bematech em Ribeirão Preto. Eles disseram que TALVEZ o motivo pela função Bematech_FI_VendeItemCompleto() não funcionar seja pelo xHarbour não suportar o envio de muitos parâmetros (63), que é o mesmo caso do VB. Sugeriram que eu usasse a Bematech_FI_VendeItemCompletoJSON(). Será que alguém poderia me mostrar como montar este mesmo exemplo abaixo VB6 em xHarbour/Fivewin. Obrigado. Exemplo JSON função: Bematech_FI_VendeItemCompletoJSON // Declaração da função Private Declare Function Bematech_FI_VendeItemCompletoJSON Lib "BEMAFI32.DLL" (ByValsParametros As String) As Integer Private Sub Command1_Click() Dimcodigo As String Dim EAN13 As String Dimdescricao As String DimindiceDepartamento As String Dimaliquota As String DimunidadeMedida As String DimtipoQuantidade As String DimcasasDecimaisQuantidade As String Dim quantidade As String DimcasasDecimaisValorUnitario As String DimvalorUnitario As String DimtipoAcrescimoDesconto As String DimvalorAcrescimo As String DimvalorDesconto As String DimtipoCalculo As String Dim NCM As String Dim CFOP As String DiminformacoesAdicionais As String Dim CST_ICMS As String DimorigemProduto As String DimitemListaServico As String DimcodigoISS As String DimnaturezaOperacaoISS As String DimindicadorIncentivoISS As String DimcodigoIBGE As String Dim CSOSN As String DimbaseCalculoValorRetido As String DimICMS_ValorRetido As String DimmodoBaseCalculo As String DimpercentualReducaoBaseCalculo As String DimICMS_ST_ModoBaseCalculo As String DimICMS_ST_PercentualMargemAdicionado As String DimICMS_ST_PercentualReducaoBaseCalculo As String Dim ICMS_ST_ValorReducaoBaseCalculoAs String Dim ICMS_ST_AliquotaAs String Dim ICMS_ST_ValorAs String DimvalorDesoneracaoICMS As String DimmotivoDesoneracaoICMS As String DimaliquotaCalculoCredito As String DimcreditoICMSSimples As String DimimpostosIncidentes As String Dim CST_PIS As String DimPIS_BaseCalculo As String DimPIS_Aliquota As String DimPIS_Valor As String DimPIS_QuantidadeVendida As String DimPIS_ValorAliquotaReais As String Dim CST_COFINS As String DimCOFINS_BaseCalculo As String DimCOFINS_Aliquota As String DimCOFINS_Valor As String DimCOFINS_QuantidadeVendida As String DimCOFINS_ValorAliquotaReais As String DimiRet As Integer ' Atribuições de valores codigo = "1234567890" EAN13 = "7891000081754" descricao = "Agua Mineral" indiceDepartamento = "01" aliquota = "I1" unidadeMedida = "UN" tipoQuantidade = "I" casasDecimaisQuantidade = "2" quantidade = "1000" casasDecimaisValorUnitario = "2" valorUnitario = "12,00" tipoAcrescimoDesconto = "$" valorAcrescimo = "00,00" valorDesconto = "00,00" tipoCalculo = "A” NCM = "09011200" CFOP = "5101" informacoesAdicionais = "INFORMAÇÕES" CST_ICMS = "90" origemProduto = "0" itemListaServico = "" codigoISS = "" naturezaOperacaoISS = "" indicadorIncentivoISS = "" codigoIBGE = "" CSOSN = "" baseCalculoValorRetido = "" ICMS_ValorRetido = "" modoBaseCalculo = "" percentualReducaoBaseCalculo = "" ICMS_ST_ModoBaseCalculo = "" ICMS_ST_PercentualMargemAdicionado = "" ICMS_ST_PercentualReducaoBaseCalculo = "" ICMS_ST_ValorReducaoBaseCalculo = "" ICMS_ST_Aliquota = "" ICMS_ST_Valor = "" valorDesoneracaoICMS = "" motivoDesoneracaoICMS = "" aliquotaCalculoCredito = "" creditoICMSSimples = "" impostosIncidentes = "3,49" CST_PIS = "1" PIS_BaseCalculo = "120,00" PIS_Aliquota = "03,00" PIS_Valor = "3,60" PIS_QuantidadeVendida = "" PIS_ValorAliquotaReais = "" CST_COFINS = "1" COFINS_BaseCalculo = "120,00" COFINS_Aliquota = "01,00" COFINS_Valor = "1,20" COFINS_QuantidadeVendida = "" COFINS_ValorAliquotaReais = "" ' Opção 1 para concatenar variávies sParametros = "{" &Chr(34) & "codigo" &Chr(34) & ":" &Chr(34) &codigo&Chr(34) & "," &Chr(34) & "EAN13" &Chr(34) & ":" &Chr(34) & EAN13 &Chr(34) & "," &Chr(34) & "descricao" &Chr(34) & ":" &Chr(34) &descricao&Chr(34) & "," &Chr(34) & "indiceDepartamento" &Chr(34) & ":" &Chr(34) &indiceDepartamento&Chr(34) & "," _ &Chr(34) & "aliquota" &Chr(34) & ":" &Chr(34) &aliquota&Chr(34) & "," &Chr(34) & "unidadeMedida" &Chr(34) & ":" &Chr(34) &unidadeMedida&Chr(34) & "," &Chr(34) & "tipoQuantidade" &Chr(34) & ":" &Chr(34) &tipoQuantidade&Chr(34) & "," &Chr(34) & "casasDecimaisQuantidade" &Chr(34) & ":" &Chr(34) &casasDecimaisQuantidade&Chr(34) & "," _ &Chr(34) & "quantidade" &Chr(34) & ":" &Chr(34) & quantidade &Chr(34) & "," &Chr(34) & "casasDecimaisValorUnitario" &Chr(34) & ":" &Chr(34) &casasDecimaisValorUnitario&Chr(34) & "," &Chr(34) & "valorUnitario" &Chr(34) & ":" &Chr(34) &valorUnitario&Chr(34) & "," &Chr(34) & "tipoAcrescimoDesconto" &Chr(34) & ":" &Chr(34) &tipoAcrescimoDesconto&Chr(34) & "," _ &Chr(34) & "valorAcrescimo" &Chr(34) & ":" &Chr(34) &valorAcrescimo&Chr(34) & "," &Chr(34) & "valorDesconto" &Chr(34) & ":" &Chr(34) &valorDesconto&Chr(34) & "," &Chr(34) & "tipoCalculo" &Chr(34) & ":" &Chr(34) &tipoCalculo&Chr(34) & "," &Chr(34) & "NCM" &Chr(34) & ":" &Chr(34) & NCM &Chr(34) & "," &Chr(34) & "CFOP" &Chr(34) & ":" _ &Chr(34) & CFOP &Chr(34) & "," &Chr(34) & "informacoesAdicionais" &Chr(34) & ":" &Chr(34) &informacoesAdicionais&Chr(34) & "," &Chr(34) & "CST_ICMS" &Chr(34) & ":" &Chr(34) & CST_ICMS &Chr(34) & "," &Chr(34) & "origemProduto" &Chr(34) & ":" &Chr(34) &origemProduto&Chr(34) & "," &Chr(34) & "itemListaServico" &Chr(34) & ":" _ &Chr(34) &itemListaServico&Chr(34) & "," &Chr(34) & "codigoISS" &Chr(34) & ":" &Chr(34) &codigoISS&Chr(34) & "," &Chr(34) & "naturezaOperacaoISS" &Chr(34) & ":" &Chr(34) &naturezaOperacaoISS&Chr(34) & "," &Chr(34) & "indicadorIncentivoISS" &Chr(34) & ":" &Chr(34) &indicadorIncentivoISS&Chr(34) & "," &Chr(34) & "codigoIBGE" &Chr(34) & ":" _ &Chr(34) &codigoIBGE&Chr(34) & "," &Chr(34) & "CSOSN" &Chr(34) & ":" &Chr(34) & CSOSN &Chr(34) & "," &Chr(34) & "baseCalculoValorRetido" &Chr(34) & ":" &Chr(34) &baseCalculoValorRetido&Chr(34) & "," &Chr(34) & "ICMS_ValorRetido" &Chr(34) & ":" &Chr(34) &ICMS_ValorRetido&Chr(34) & "," &Chr(34) & "modoBaseCalculo" &Chr(34) & ":" &Chr(34) &modoBaseCalculo&Chr(34) & "," _ &Chr(34) & "percentualReducaoBaseCalculo" &Chr(34) & ":" &Chr(34) &percentualReducaoBaseCalculo&Chr(34) & "," &Chr(34) & "ICMS_ST_ModoBaseCalculo" &Chr(34) & ":" &Chr(34) &ICMS_ST_ModoBaseCalculo&Chr(34) & "," &Chr(34) & "ICMS_ST_PercentualMargemAdicionado" &Chr(34) & ":" &Chr(34) &ICMS_ST_PercentualMargemAdicionado&Chr(34) & "," &Chr(34) & "ICMS_ST_PercentualReducaoBaseCalculo" &Chr(34) & ":" _ &Chr(34) &ICMS_ST_PercentualReducaoBaseCalculo&Chr(34) & "," &Chr(34) & "ICMS_ST_ValorReducaoBaseCalculo" &Chr(34) & ":" &Chr(34) &ICMS_ST_ValorReducaoBaseCalculo&Chr(34) & "," &Chr(34) & "ICMS_ST_Aliquota" &Chr(34) & ":" &Chr(34) &ICMS_ST_Aliquota&Chr(34) & "," &Chr(34) & "ICMS_ST_Valor" &Chr(34) & ":" &Chr(34) &ICMS_ST_Valor&Chr(34) & "," &Chr(34) & "valorDesoneracaoICMS" &Chr(34) & ":" _ &Chr(34) &valorDesoneracaoICMS&Chr(34) & "," &Chr(34) & "motivoDesoneracaoICMS" &Chr(34) & ":" &Chr(34) &motivoDesoneracaoICMS&Chr(34) & "," &Chr(34) & "aliquotaCalculoCredito" &Chr(34) & ":" &Chr(34) &aliquotaCalculoCredito&Chr(34) & "," &Chr(34) & "creditoICMSSimples" &Chr(34) & ":" &Chr(34) &creditoICMSSimples&Chr(34) & "," &Chr(34) & "impostosIncidentes" &Chr(34) & ":" &Chr(34) &impostosIncidentes&Chr(34) & "," _ &Chr(34) & "CST_PIS" &Chr(34) & ":" &Chr(34) & CST_PIS &Chr(34) & "," &Chr(34) & "PIS_BaseCalculo" &Chr(34) & ":" &Chr(34) &PIS_BaseCalculo&Chr(34) & "," &Chr(34) & "PIS_Aliquota" &Chr(34) & ":" &Chr(34) &PIS_Aliquota&Chr(34) & "," &Chr(34) & "PIS_Valor" &Chr(34) & ":" &Chr(34) &PIS_Valor&Chr(34) & "," &Chr(34) & "PIS_QuantidadeVendida" &Chr(34) & ":" &Chr(34) &PIS_QuantidadeVendida&Chr(34) & "," &Chr(34) & "PIS_ValorAliquotaReais" &Chr(34) & ":" &Chr(34) &PIS_ValorAliquotaReais&Chr(34) & "," &Chr(34) & "CST_COFINS" &Chr(34) & ":" &Chr(34) & CST_COFINS &Chr(34) & "," &Chr(34) & "COFINS_BaseCalculo" &Chr(34) & ":" &Chr(34) &COFINS_BaseCalculo&Chr(34) & "," &Chr(34) & "COFINS_Aliquota" &Chr(34) & ":" &Chr(34) &COFINS_Aliquota&Chr(34) & "," &Chr(34) & "COFINS_Valor" &Chr(34) & ":" &Chr(34) &COFINS_Valor&Chr(34) & "," &Chr(34) & "COFINS_QuantidadeVendida" &Chr(34) & ":" &Chr(34) &COFINS_QuantidadeVendida&Chr(34) & "," _ &Chr(34) & "COFINS_ValorAliquotaReais" &Chr(34) & ":" &Chr(34) &COFINS_ValorAliquotaReais&Chr(34) & "}" ' Opção 2 para concatenar variáveis 'sParametros = "{" + """code""" + ":" + """" + code + """" + "," + """EAN13""" + ":" + """" + EAN13 + """" + "," + """description""" + ":" + """" + description + """" + "," + """indexDepartment""" + ":" + """" + indexDepartment + """" + "," + """tax""" + ":" + """" + tax + """" + "," + """unitOfMeasure""" + ":" + """" + unitOfMeasure + """" + "," + """quantityType""" + ":" + """" + quantityType + """" + "," + """decimalsQuantity""" + ":" + """" + _ decimalsQuantity + """" + "," + """quantity""" + ":" + """" + quantity + """" + "," + """decimalsUnitaryValue""" + ":" + """" + decimalsUnitaryValue + """" + "," + """unitaryValue""" + ":" + """" + _ unitaryValue + """" + "," + """increaseDiscountType""" + ":" + """" + increaseDiscountType + """" + "," + """incrementValue""" + ":" + """" + incrementValue + """" + "," + """discountValue""" + ":" + """" + discountValue + """" + "," + """typeOfCalculation""" + ":" + """" + _ typeOfCalculation + """" + "," + """NCM""" + ":" + """" + NCM + """" + "," + """CFOP""" + ":" + """" + CFOP + """" + "," + """additionalInformation""" + ":" + """" + additionalInformation + """" + "," + """CST_ICMS""" + ":" + """" + _ CST_ICMS + """" + "," + """productOrigen""" + ":" + """" + productOrigen + """" + "," + """itemServiceList""" + ":" + """" + itemServiceList + """" + "," + """ISSCode""" + ":" + """" + ISSCode + """" + "," + """ISSOperationNature""" + ":" + """" + _ ISSOperationNature + """" + "," + """ISSIncentiveIndicator""" + ":" + """" + ISSIncentiveIndicator + """" + "," + """IBGECode""" + ":" + """" + IBGECode + """" + "," + """CSOSN""" + ":" + """" + _ CSOSN + """" + "," + """basisCalculuationValueRetained""" + ":" + """" + basisCalculuationValueRetained + """" + "," + """ICMSValueRetained""" + ":" + """" + ICMSValueRetained + """" + "," + """basisCalculationMode""" + ":" + """" + _ basisCalculationMode + """" + "," + """basisCalculationReductionPercentual""" + ":" + """" + basisCalculationReductionPercentual + """" + "," + """ICMSSTBasisCalculationMode""" + ":" + """" + ICMSSTBasisCalculationMode + """" + "," + """ICMSSTValueAddedMarginPercentual""" + ":" + """" + ICMSSTValueAddedMarginPercentual + """" + "," + """ICMSSTBasisCalculationReductionPercentual""" + ":" + """" + _ ICMSSTBasisCalculationReductionPercentual + """" + "," + """ICMSSTBasisCalculationReductionValue""" + ":" + """" + ICMSSTBasisCalculationReductionValue + """" + "," + """ICMSSTTax""" + ":" + """" + ICMSSTTax + """" + "," + """ICMSSTValue""" + ":" + """" + ICMSSTValue + """" + "," + """ICMSUnencumberedValue""" + ":" + """" + _ ICMSUnencumberedValue + """" + "," + """ICMSUnburdeningMotive""" + ":" + """" + ICMSUnburdeningMotive + """" + "," + """creditCalculationApplicableTax""" + ":" + """" + creditCalculationApplicableTax + """" + "," + """ICMSSNCreditValue""" + ":" + """" + ICMSSNCreditValue + """" + "," + """incidentTaxTotalValue""" + ":" + """" + _ incidentTaxTotalValue + """" + "," + """pisCst""" + ":" + """" + pisCst + """" + "," + """pisBasisCalculation""" + ":" + """" + pisBasisCalculation + """" + "," + """pisTax""" + ":" + """" + pisTax + """" + "," + """pisValue""" + ":" + """" + _ pisValue + """" + "," + """pisQuantitySell""" + ":" + """" + pisQuantitySell + """" + "," + """pisTaxValueProd""" + ":" + """" + pisTaxValueProd + """" + "," + """cofinsCst""" + ":" + """" + cofinsCst + """" + "," + """cofinsBasisCalculation""" + ":" + """" + _ cofinsBasisCalculation + """" + "," + """cofinsTax""" + ":" + """" + cofinsTax + """" + "," + """cofinsValue""" + ":" + """" + cofinsValue + """" + "," + """cofinsQuantitySell""" + ":" + """" + cofinsQuantitySell + """" + "," + """cofinsTaxValueProd""" + ":" + """" + _ cofinsTaxValueProd + """" + "," + """reserved01""" + ":" + """" + reserved01 + """" + "," + """reserved02""" + ":" + """" + reserved02 + """" + "," + """reserved03""" + ":" + """" + reserved03 + """" + "," + """reserved04""" + ":" + """" + _ reserved04 + """" + "," + """reserved05""" + ":" + """" + reserved05 + """" + "," + """reserved06""" + ":" + """" + reserved06 + """" + "," + """reserved07""" + ":" + """" + reserved07 + """" + "," + """reserved08""" + ":" + """" + _ reserved08 + """" + "," + """reserved09""" + ":" + """" + reserved09 + """" + "," + """reserved10""" + ":" + """" + reserved10 + """" + "}" iRet = Bematech_FI_VendeItemCompletoJSON(sParametros) End Sub

Crisvam e Kapiaba desculpe a demora, é que fico fazendo testes antes postar aqui. Crisvam é justamente isto, não existe esta função no arquivo.CHM (Help da DLL). Kapiaba eu já havia visto este links. Consegui falar com uma pessoa da Bematech, Sr. Alexandre Abreu que me passou um exemplo da função. Montei conforme a minha conforme a dele porém o erro continua. Gostaria se possível alguém baixar esta DLL e fazer um teste em sua impressora FI comum, usando esta função, pois ele dizem que vai funcionar normalmente, pois os parâmetros a mais serão ignorados automaticamente. Vejam o que o Sr. Alexandre me mandou e como eu criei a função. Onde estou errando? É o seguinte também, eu tenho um arquivo .ZIP (xHarbour_NFC-e) que não sei onde consegui kkk, Dentro possui um arquivo .EXE que funciona perfeitamente, porém não tem os arquivos .PRG apenas .EXE .MAP (Linker Address Map) mais a DLL Bemafi32 e o Bemafi32.ini. Se alguém precisar para ajudar a resolver posso enviar por e-mail. Função do Sr. Alexandre //todas as variaveis devem ser declaradas como STRING; edit_codigo := '000001'; edit_descricao := 'REFRIGERANTE LATA'; edit_Aliquota := 'II' edit_Qtd := formatfloat('##,##0.000', 1); edit_Valor := formatfloat('##,##0.00', 3); Edit_Desconto := formatfloat('##,##0.00', 0); // edit_dep := formatfloat('##,##0.000', 20.00); // edit_unidade := 'un'; edit_dep := '01'; //VENDE ITEM DO SAT BEMATECH EAN13 := ''; TipoQuantidade := 'I'; CasasDecimaisQtde := '3'; CasasDecimaisValor := '2'; TipoDesconto := '$'; ArredondaTrunca := 'A'; NCM := '22011000'; CFOP := '5403'; InformacaoAdicional := 'INFORMAÇÕES'; OrigemProduto := '0'; CST_ICMS := '60'; CodigoIBGE := ''; CodigoISS := ''; NaturezaOperacaoISS := ''; IndicadorIncentivoFiscal := ''; ItemListaServico := '1234'; //CSOSN := '102'; //--> Simples Nacional CSOSN := ''; ValorBaseCalculoSimples := '0'; ValorICMSRetidoSimples := '0'; ModalidadeBaseCalculo := '0'; PercentualReducaoBase := '0'; ModalidadeBC := '0'; PercentualMargemICMS := '0'; PercentualBCICMS := '0'; ValorReducaoBCICMS := '0'; ValorAliquotaICMS := '0'; ValorICMS := '0'; ValorICMSDesonerado := '0'; MotivoDesoneracaoICMS := '0'; AliquotaCalculoCredito := '0'; ValorCreditoICMS := '0'; ValorTotalTributos := ''; //tributos CSTPIS := '04'; BaseCalculoPIS := ''; AliquotaPIS := ''; ValorPIS := ''; QuantVendidaPIS := ''; ValorAliquotaPIS := ''; CSTCOFINS := '04'; BaseCalculoCOFINS := ''; AliquotaCOFINS := ''; ValorCOFINS := ''; QunatVendidaCOFINS := ''; ValorAliquotaCOFINS := ''; Reservado01 := ''; Reservado02 := ''; Reservado03 := ''; Reservado04 := ''; Reservado05 := ''; Reservado06 := ''; Reservado07 := ''; Reservado08 := ''; Reservado09 := ''; Reservado10 := ''; //teste edit_Aliquota := 'F1'; //teste iRetorno := Bematech_FI_VendeItemCompleto( pchar( edit_codigo ), pchar( EAN13 ), pchar(edit_descricao), pchar( edit_dep ), pchar( edit_Aliquota ), pchar( edit_unidade ), pchar( TipoQuantidade ), pchar( CasasDecimaisQtde ), pchar( edit_Qtd ), pchar( CasasDecimaisValor ), pchar( edit_Valor ), pchar( TipoDesconto ), pchar( Edit_Desconto ), pchar( Edit_Desconto ), pchar( ArredondaTrunca ), pchar( NCM ), pchar( CFOP ), pchar( InformacaoAdicional ), pchar( CST_ICMS ), pchar( OrigemProduto ), pchar( ItemListaServico ), pchar( CodigoISS ), pchar( NaturezaOperacaoISS ), pchar( IndicadorIncentivoFiscal ), pchar(CodigoIBGE ), pchar( CSOSN ), pchar( ValorBaseCalculoSimples ), pchar( ValorICMSRetidoSimples ), pchar( ModalidadeBaseCalculo ), pchar( PercentualReducaoBase ), pchar( ModalidadeBC ), pchar( PercentualMargemICMS ), pchar( PercentualBCICMS ), pchar( ValorReducaoBCICMS ), pchar( ValorAliquotaICMS ), pchar( ValorICMS ), pchar( ValorICMSDesonerado ), pchar( MotivoDesoneracaoICMS ), pchar( AliquotaCalculoCredito ), pchar( ValorCreditoICMS ), pchar( ValorTotalTributos ), pchar( CSTPIS ), pchar( BaseCalculoPIS ), pchar( AliquotaPIS ), pchar( ValorPIS ), pchar( QuantVendidaPIS ), pchar( ValorAliquotaPIS ), pchar( CSTCOFINS ), pchar( BaseCalculoCOFINS ), pchar( AliquotaCOFINS ), pchar( ValorCOFINS ), pchar( QunatVendidaCOFINS ), pchar( ValorAliquotaCOFINS ), pchar( Reservado01 ), pchar( Reservado02 ), pchar( Reservado03 ), pchar( Reservado04 ), pchar( Reservado05 ), pchar( Reservado06 ), pchar( Reservado07 ), pchar( Reservado08 ), pchar( Reservado09 ), pchar( Reservado10 )); Início do Programa onde está a função #include "FiveWin.ch" #define _VIDEO_CH #define _OBJECTS_CH #define _DDE_CH Carregando a DLL STATIC XDLL,oToolBar,OFONTEM,OFNTM XDLL := LoadLib32("C:\FIVEH\BEMAFI32.dll") Declarando a nova Função: DLL32 FUNCTION VENDCOM(; Codigo AS STRING,; EAN13 AS STRING,; Descricao AS STRING,; IndiceDepartamento AS STRING,; Aliquota AS STRING,; UnidadeMedida AS STRING,; TipoQuantidade AS STRING,; CasasDecimaisQtde AS STRING,; Quantidade AS STRING,; CasasDecimaisValor AS STRING,; ValorUnitario AS STRING,; TipoDesconto AS STRING,; ValorAcrescimo AS STRING,; ValorDesconto AS STRING,; ArredondaTrunca AS STRING,; NCM AS STRING,; CFOP AS STRING,; InformacaoAdicional AS STRING,; CST_ICMS AS STRING,; OrigemProduto AS STRING,; ItemListaServico AS STRING,; CodigoISS AS STRING,; NaturezaOperacaoISS AS STRING,; IndicadorIncentivoFiscal AS STRING,; CodigoIBGE AS STRING,; CSOSN AS STRING,; ValorBaseCalculoSimples AS STRING,; ValorICMSRetidoSimples AS STRING,; ModalidadeBaseCalculo AS STRING,; PercentualReducaoBase AS STRING,; ModalidadeBC AS STRING,; PercentualMargemICMS AS STRING,; PercentualBCICMS AS STRING,; ValorReducaoBCICMS AS STRING,; ValorAliquotaICMS AS STRING,; ValorICMS AS STRING,; ValorICMSDesonerado AS STRING,; MotivoDesoneracaoICMS AS STRING,; AliquotaCalculoCredito AS STRING,; ValorCreditoICMS AS STRING,; ImpostosIncidentes AS STRING,; CST_PIS AS STRING,; PIS_BaseCalculo AS STRING,; PIS_Aliquota AS STRING,; PIS_Valor AS STRING,; PIS_QuantidadeVendida AS STRING,; PIS_ValorAliquotaReais AS STRING,; CST_COFINS AS STRING,; COFINS_BaseCalculo AS STRING,; COFINS_Aliquota AS STRING,; COFINS_Valor AS STRING,; COFINS_QuantidadeVendida AS STRING,; COFINS_ValorAliquotaReais AS STRING,; RESERVADO01 AS STRING,; RESERVADO02 AS STRING,; RESERVADO03 AS STRING,; RESERVADO04 AS STRING,; RESERVADO05 AS STRING,; RESERVADO06 AS STRING,; RESERVADO07 AS STRING,; RESERVADO08 AS STRING,; RESERVADO09 AS STRING,; RESERVADO10 AS STRING) AS LONG PASCAL ; FROM "Bematech_FI_VendeItemCompleto" LIB xDll Chamando a função com os parâmetros igual do Sr. Alexandre: VA01 := "1234567890" && Codigo VA02 := "" && EAN13 VA03 := "AGUA MINERAL SEM GAS - COPO 200 ML" && Descricao VA04 := "00" && IndiceDepartamento VA05 := "F1" && Aliquota VA06 := "UN" && UnidadeMedida VA07 := "I" && TipoQuantidade VA08 := "3" && CasasDecimaisQtde VA09 := "1000" && Quantidade VA10 := "2" && CasasDecimaisValor VA11 := "1,00" && ValorUnitario VA12 := "$" && TipoDesconto VA13 := "0,00" && ValorAcrescimo VA14 := "0,00" && ValorDesconto VA15 := "A" && ArredondaTrunca VA16 := "22011000" && NCM VA17 := "5403" && CFOP VA18 := "INFORMAÇÕES" && InformacaoAdicional VA19 := "60" && CST_ICMS VA20 := "0" && OrigemProduto VA21 := "1234" && ItemListaServico VA22 := "" && CodigoISS VA23 := "" && NaturezaOperacaoIS VA24 := "" && IndicadorIncentivoFiscal VA25 := "" && CodigoIBGE VA26 := "" && CSOSN VA27 := "0" && ValorBaseCalculoSimples VA28 := "0" && ValorICMSRetidoSimples VA29 := "0" && ModalidadeBaseCalculo VA30 := "0" && PercentualReducaoBase VA31 := "0" && ModalidadeBC VA32 := "0" && PercentualMargemICMS VA33 := "0" && PercentualBCICMS VA34 := "0" && ValorReducaoBCICMS VA35 := "0" && ValorAliquotaICMS VA36 := "0" && ValorICMS VA37 := "0" && ValorICMSDesonerado VA38 := "0" && MotivoDesoneracaoICMS VA39 := "0" && AliquotaCalculoCredito VA40 := "0" && ValorCreditoICMS VA41 := "" && impostosIncidentes / Valor Total Tributos VA42 := "04" && CST_PIS VA43 := "" && PIS_BaseCalculo VA44 := "" && PIS_Aliquota VA45 := "" && PIS_Valor VA46 := "" && PIS_QuantidadeVendida VA47 := "" && PIS_ValorAliquotaReais VA48 := "04" && CST_COFINS VA49 := "" && COFINS_BaseCalculo VA50 := "" && COFINS_Aliquota VA51 := "" && COFINS_Valor VA52 := "" && COFINS_QuantidadeVendida VA53 := "" && COFINS_ValorAliquotaReais VA54 := "" && Reservado01 VA55 := "" && Reservado02 VA56 := "" && Reservado03 VA57 := "" && Reservado04 VA58 := "" && Reservado05 VA59 := "" && Reservado06 VA60 := "" && Reservado07 VA61 := "" && Reservado08 VA62 := "" && Reservado09 VA63 := "" && Reservado10 IF(nRet := VENDCOM(VA01, VA02, VA03, VA04, VA05, VA06, VA07, VA08, VA09, VA10, VA11, VA12, VA13, VA14, VA15, VA16,; VA17, VA18, VA19, VA20, VA21, VA22, VA23, VA24, VA25, VA26, VA27, VA28, VA29, VA30, VA31, VA32, VA33, VA34, VA35,; VA36, VA37, VA38, VA39, VA40, VA41, VA42, VA43, VA44, VA45, VA46, VA47, VA48, VA49, VA50, VA51, VA52, VA53,; VA54, VA55, VA56, VA57, VA58, VA59, VA60, VA61, VA62, VA63)) <> 1 DO CASE CASE nRet = -2 MsgStop("Não Foi Possível Vender o Item, Parâmetro Inválido na Função !","Atenção") CASE nRet = -3 MsgStop("Não Foi Possível Vender o Item, Alíquota " + TRI + " Não Programada !","Atenção") OTHER MsgStop("Não Foi Possível Vender o Item !","Atenção") ENDCASE ELSE MsgStop("Item Vendido Com Sucesso","Atenção") ENDIF RETURN(.T.) Obrigado e espero que com a ajuda de vocês e de Deus consigam achar o problema.

Pessoal, por favor não tem alguém para me ajudar. Acho que estou criando errado esta Function.

Crisvan, bom dia, quanto as portas o pessoal da Bematech disse que como a impressora é virtual apenas tenho definir na Bemafi32.ini onde ela está instalada, no caso COM8. Todas as outras funções antigas, abrir cupom, leitura x, etc... funcionam, apenas esta função nova que não. Está tudo meio confuso, antes eu tinha um modelo que veio junto. agora mandaram outro. Esta é forma que estou criando ela, baseado nas anteriores. Abaixo está / Vende ítem completo DLL32 FUNCTION VENDCOM(; Codigo AS STRING,; EAN13 AS STRING,; Descricao AS STRING,; IndiceDepartamento AS STRING,; Aliquota AS STRING,; UnidadeMedida AS STRING,; TipoQuantidade AS STRING,; CasasDecimaisQtde AS STRING,; Quantidade AS STRING,; CasasDecimaisValor AS STRING,; ValorUnitario AS STRING,; TipoDesconto AS STRING,; ValorAcrescimo AS STRING,; ValorDesconto AS STRING,; ArredondaTrunca AS STRING,; NCM AS STRING,; CFOP AS STRING,; InformacaoAdicional AS STRING,; CST_ICMS AS STRING,; OrigemProduto AS STRING,; ItemListaServico AS STRING,; CodigoISS AS STRING,; NaturezaOperacaoISS AS STRING,; IndicadorIncentivoFiscal AS STRING,; CodigoIBGE AS STRING,; CSOSN AS STRING,; ValorBaseCalculoSimples AS STRING,; ValorICMSRetidoSimples AS STRING,; ModalidadeBaseCalculo AS STRING,; PercentualReducaoBase AS STRING,; ModalidadeBC AS STRING,; PercentualMargemICMS AS STRING,; PercentualBCICMS AS STRING,; ValorReducaoBCICMS AS STRING,; ValorAliquotaICMS AS STRING,; ValorICMS AS STRING,; ValorICMSDesonerado AS STRING,; MotivoDesoneracaoICMS AS STRING,; AliquotaCalculoCredito AS STRING,; ValorCreditoICMS AS STRING,; ImpostosIncidentes AS STRING,; CST_PIS AS STRING,; PIS_BaseCalculo AS STRING,; PIS_Aliquota AS STRING,; PIS_Valor AS STRING,; PIS_QuantidadeVendida AS STRING,; PIS_ValorAliquotaReais AS STRING,; CST_COFINS AS STRING,; COFINS_BaseCalculo AS STRING,; COFINS_Aliquota AS STRING,; COFINS_Valor AS STRING,; COFINS_QuantidadeVendida AS STRING,; COFINS_ValorAliquotaReais AS STRING) AS LONG PASCAL ; FROM "Bematech_FI_VendeItemCompleto" LIB xDll Abaixo o programa: *********************** FUNCTION VENITE() CursorWait() VA01 := "1234567890" && Codigo VA02 := "7891000081754" && EAN13 VA03 := "Agua Mineral" && Descricao VA04 := "01" && IndiceDepartamento VA05 := "T01" && Aliquota VA06 := "UN" && UnidadeMedida VA07 := "I" && TipoQuantidade VA08 := "2" && CasasDecimaisQtde VA09 := "1000" && Quantidade VA10 := "2" && CasasDecimaisValor VA11 := "1200" && ValorUnitario VA12 := "$" && TipoDesconto VA13 := "000" && ValorAcrescimo VA14 := "000" && ValorDesconto VA15 := "A" && ArredondaTrunca VA16 := "09011200" && NCM VA17 := "5101" && CFOP VA18 := "INFORMACOES" && InformacaoAdicional VA19 := "90" && CST_ICMS VA20 := "0" && OrigemProduto VA21 := "" && ItemListaServico VA22 := "" && CodigoISS VA23 := "" && NaturezaOperacaoIS VA24 := "" && IndicadorIncentivoFiscal VA25 := "" && CodigoIBGE VA26 := "" && CSOSN VA27 := "" && ValorBaseCalculoSimples VA28 := "" && ValorICMSRetidoSimples VA29 := "" && ModalidadeBaseCalculo VA30 := "" && PercentualReducaoBase VA31 := "" && ModalidadeBC VA32 := "" && PercentualMargemICMS VA33 := "" && PercentualBCICMS VA34 := "" && ValorReducaoBCICMS VA35 := "" && ValorAliquotaICMS VA36 := "" && ValorICMS VA37 := "" && ValorICMSDesonerado VA38 := "" && MotivoDesoneracaoICMS VA39 := "" && AliquotaCalculoCredito VA40 := "" && ValorCreditoICMS VA41 := "" && impostosIncidentes VA42 := "" && CST_PIS VA43 := "" && PIS_BaseCalculo VA44 := "" && PIS_Aliquota VA45 := "" && PIS_Valor VA46 := "" && PIS_QuantidadeVendida VA47 := "" && PIS_ValorAliquotaReais VA48 := "" && CST_COFINS VA49 := "" && COFINS_BaseCalculo VA50 := "" && COFINS_Aliquota = "01,00" VA51 := "" && COFINS_Valor = "1,20" VA52 := "" && COFINS_QuantidadeVendida VA53 := "" && COFINS_ValorAliquotaReais VA54 := "" && Reservado01 VA55 := "" && Reservado02 VA56 := "" && Reservado03 VA57 := "" && Reservado04 VA58 := "" && Reservado05 VA59 := "" && Reservado06 VA60 := "" && Reservado07 VA61 := "" && Reservado08 VA62 := "" && Reservado09 VA63 := "" && Reservado10 IF(nRet := VENDCOM(VA01, VA02, VA03, VA04, VA05, VA06, VA07, VA08, VA09, VA10, VA11, VA12, VA13, VA14, VA15, VA16,; VA17, VA18, VA19, VA20, VA21, VA22, VA23, VA24, VA25, VA26, VA27, VA28, VA29, VA30, VA31, VA32, VA33, VA34, VA35,; VA36, VA37, VA38, VA39, VA40, VA41, VA42, VA43, VA44, VA45, VA46, VA47, VA48, VA49, VA50, VA51, VA52, VA53)) <> 1 DO CASE CASE nRet = -2 MsgStop("Não Foi Possível Vender o Item, Parâmetro Inválido na Função !","Atenção") CASE nRet = -3 MsgStop("Não Foi Possível Vender o Item, Alíquota " + TRI + " Não Programada !","Atenção") OTHER MsgStop("Não Foi Possível Vender o Item !","Atenção") ENDCASE ELSE MsgStop("Item Vendido Com Sucesso","Atenção") ENDIF RETURN nil Abaixo anexei um arquivo.VendeItemCompleto.pdf