aokisantos
Membros-
Posts
557 -
Joined
-
Last visited
-
Days Won
1
Everything posted by aokisantos
-
Amigo Adelson, acredito que vc pode usar o comando BETWEEN, ex: emissao BETWEEN "+ SQLDATE( dInicial )+ " and " + SQLDATE( dFinal ) Abraço
-
Adelson, referente: and (local_30="+_f2+" or local_30="+_f3+" or local_30="+_f4+")" só filtra o que está aqui.... local_30="+_f2 e ignora o resto. como é um OR a primeira condição atendida ele não verificará as demais, não seria um AND que vc precisa? Caso realmente seja um OR, uma outra maneira de verificar seria com IN, ex: and local_30 IN (_f2, _f3, _f4 ) Outra coisa, caso esteas variaveis _f2 e demais sejam STRING, lembre-se de colocar entre aspas. Abraço,
-
muito obrigado.
-
obrigado.
-
Boa tarde, estou precisando implementar no meu frente a URANO alguem já conseguiu? poderia compartilhar as declarações da DLL? Abraço
-
tsbrowse para harbour alguem tem?
-
Alguém utiliza SQLRDD com a Versão mais recente do xHarbour
aokisantos posted a topic in Programação
Alguém utiliza SQLRDD com a Versão mais recente do xHarbour e Fivewin? -
HB_FNameSplit(cFile, @cPath, @cFileName, @cExtension)
-
obrigado
-
Amigos, utilizava SQLRDD com o xharbour 1.2.1, ao atualizar para o xharbour1.2.3 o SQLRDD apresentou uma lentidão considerável. alguém usa o xharbour1.2.3 com SQLRDD?
-
Ola, alguém usa FR3 de carta de correção eletrônica? Podem compartilhar? att.
-
JBINFO, eu uso a: ENVIARDADOSVENDA DLL32 FUNCTION EnviarDadosVenda( numeroSessao AS _INT ,; codigoAtivacao AS STRING,; dados AS STRING ) AS STRING PASCAL LIB s_hDLLSAT Referente a sua declaracao eu faria assim: DLL32 FUNCTION Bematech_FI_VendeItemCompletoJSON( CODIGO AS STRING,; EAN13 AS STRING,; DESCRICAO AS STRING,; INDICEDEPARTAMENTO AS STRING,; ALIQUOTA AS STRING,; UNIDADEMEDIDA AS STRING,; TIPOQUANTIDADE AS STRING,; CASASDECIMAISQUANTIDADE AS STRING,; QUANTIDADE AS STRING,; CASASDECIMAISVALORUNITARIO AS STRING,; VALORUNITARIO AS STRING,; TIPOACRESCIMODESCONTO AS STRING,; VALORACRESCIMO AS STRING,; VALORDESCONTO AS STRING,; TIPOCALCULO AS STRING,; NCM AS STRING,; CFOP AS STRING,; INFORMACOESADICIONAIS AS STRING,; CST_ICMS AS STRING,; ORIGEMPRODUTO AS STRING,; ITEMLISTASERVICO AS STRING,; CODIGOISS AS STRING,; NATUREZAOPERACAOISS AS STRING,; INDICADORINCENTIVOISS AS STRING,; CODIGOIBGE AS STRING,; CSOSN AS STRING,; BASECALCULOVALORRETIDO AS STRING,; ICMS_VALORRETIDO AS STRING,; MODOBASECALCULO AS STRING,; PERCENTUALREDUCAOBASECALCULO AS STRING,; ICMS_ST_MODOBASECALCULO AS STRING,; ICMS_ST_PERCENTUALMARGEMADICIONADO AS STRING,; ICMS_ST_PERCENTUALREDUCAOBASECALCULO AS STRING,; ICMS_ST_VALORREDUCAOBASECALCULOAS STRING,; ICMS_ST_ALIQUOTAAS STRING,; ICMS_ST_VALORAS STRING,; VALORDESONERACAOICMS AS STRING,; MOTIVODESONERACAOICMS AS STRING,; ALIQUOTACALCULOCREDITO AS STRING,; CREDITOICMSSIMPLES 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,; IRET AS INTEGER) AS STRING PASCAL LIB 'coloqueaquidllbematech.dll'
-
jbinfo,Eu não uso esta função, mais percebi na sua declaração a definição "string" não esta em CAIXA ALTA: STRING.
-
amigo, olhe esta para vc ter uma ideia: DLL32 FUNCTION AtivarSAT ( numeroSessao AS _INT ,; subComando AS _INT ,; codigoDeAtivacao AS STRING,; CNPJ AS STRING,; cUF AS _INT ) AS STRING PASCAL LIB s_hDLLSAT
-
igpjinfouse xbrowse e na coluna sete: EDIT_BUTTON
-
Acho que é assim: nRet := ECF_IniciaFechamentoCupomMFD( cAcrescimoDesconto, "$" , Str( nAcrescimo, 14, 2 ), Str( nValorDesc, 14, 2 ) )
-
tente assim: oGr:nClrText := nRgb( 7,7,224 )
-
Espon Fiscal T88 - Rotina de desconto - URGENTE!!!!
aokisantos replied to jbinfo's topic in Programação
Boa tarde Leandro, antes deste comando vc deve lançar os produtos do cupom. att. -
Espon Fiscal T88 - Rotina de desconto - URGENTE!!!!
aokisantos replied to jbinfo's topic in Programação
elseif m->hDadosECF['cTipoECF_FWH'] == ECF_EPSON /* pszValor LPSTR 11 (N) Valor do desconto ou acréscimo. dwCasasDecimais DWORD - Número de casas decimais do valor. bDesconto BOOL - True para desconto e False para acréscimo. bPercentagem BOOL - True para valor percentual e False para valor em moeda. */ if !Empty( nAcrescimo ) nRet := EPSON_Fiscal_Desconto_Acrescimo_Subtotal( NumSemPto( nAcrescimo, 9, 2 ), 2, .f., .f. ) if !FwPegaRetorno(nRet) return(.f.) endif endif if !Empty( nValorDesc ) nRet := EPSON_Fiscal_Desconto_Acrescimo_Subtotal( NumSemPto( nValorDesc, 9, 2 ), 2, .t., .f.) endif dll32 function EPSON_Fiscal_Desconto_Acrescimo_Subtotal(pszValor AS LPSTR, dwCasasDecimais AS _INT, bDesconto AS BOOL, bPercentagem AS BOOL) AS LONG PASCAL LIB 'INTERFACEEPSON.DLL' -
Oscar, estou testando o equipamento SAT (DIMEP) e tive que alterar as declarações colocando o PASCAL. Assim funcionou! DLL32 FUNCTION SATConsultar( numeroSessao AS _INT ) AS STRING PASCAL FROM "ConsultarSAT" LIB hDLLSAT DLL32 FUNCTION SATAtivar ( numeroSessao AS _INT ,; subComando AS _INT ,; codigoDeAtivacao AS STRING,; CNPJ AS STRING,; cUF AS _INT ) AS STRING PASCAL FROM "AtivarSAT" LIB hDLLSAT DLL32 FUNCTION SATCancelarUltimaVenda( numeroSessao AS _INT ,; codigoAtivacao AS STRING,; chaveAcesso AS STRING,; dados AS STRING ) AS STRING FROM "CancelarUltimaVenda" LIB hDLLSAT
-
Pessoal, o fonte que tenho baseado no FWH\SAMPLES\GMAPD.PRG, mostra o mapa do google dentro do sistema, porem, parou de mostrar no mapa o ICONE da localização do endereço que informei. Alguém poderia testar e confirmar isto para mim? muito obrigado
-
Bom dia, alguem já fez integração com a CATRACA HENRY LUMEN? Teriam um exemplo? FWH9.12 PELLES+SQLLIB+SQLRDD+MYSQL
-
Bom dia, alguem já fez integração com a CATRACA HENRY LUMEN? Teriam um exemplo? FWH9.12 PELLES+SQLLIB+SQLRDD+MYSQL
-
Bom dia Pessoal, alguem teria um exemplo de impressão de etiquetas de código de barras usando o FASTREPORT via codigo(Sem usar FR3, se é q isso é possÃvel)? obrigado FWH9.12 PELLES+SQLLIB+SQLRDD+MYSQL
-
Bom dia Pessoal, alguem teria um exemplo de impressão de etiquetas de código de barras usando o FASTREPORT via codigo(Sem usar FR3, se é q isso é possÃvel)? obrigado FWH9.12 PELLES+SQLLIB+SQLRDD+MYSQL