-
Posts
1,796 -
Joined
-
Last visited
-
Days Won
31
Posts posted by Theotokos
-
-
Vlw emotta!!! REsolveu pra mim.... Obgdao fk com Deus!!!
-
Bom Dia!!!
Tenho uma array assim: { {Codigo, Qtde, Preco} } e preciso gravar ele em BD no campo String e depois recupera
Exemplo: { {00001, 2, 34.50}, {00005, 1, 50.40}, {001230, 3, 12.34} }
Preciso Salvar esta array em um campo STRING (Memo) e depois recuperar de forma que fique esta array...
Atualmente uso Hb_aTokens, mas ele recuperar como Vetor, assim { 00001, 2, 34.50, 00005, 1, 50.40, 001230, 3, 12.34 }
-
faço assim:
Salvo em arquivo de memória, então no inicio do fonte antes de Janelas, verifico se existe o arquivo salvo e restauro para uma variavel: cState
IF File("StProduto.rli")
Restore FROM ("StProduto.rli") ADDITIVE
EndMonta a rotina... Janela.... Browse... etc
oBrw:SetFocus()
oBrw:RestoreState( cState )
*
ACTIVATE DIALOG odlg CENTER ON INIT (oBrw:RestoreState( cState ),oBrw:SetFocus()) VALID ( cState := oBrw:SaveState(), .T. )
**** Ao sair SALVO novamente no arquivo de memoria
Save To ("StProduto.rli") ALL LIKE cState
*
-
eu uso assim:
oBrw:aCols[1]:bBmpData := { || VerBlqCli() }
a Função VerBlqCli() verifica o status do cliente e conforme for retorna 1 = OK 2 = Bloqueado 3 = Inadimplente/Bloqueado
-
21 horas atrás, hcunha disse:
Senhores,
O problema foi resolvido quando eu alterei a mensagem. Todas as mensagens que coloco enviam sem problema, só aquele determinado texto que não ia, estranho, muito estranho. o detalhe é que o cliente queria aquele texto, tive que convence-lo que tinha que ser outro texto. Mudei o texto da mensagem e esta funcionando.
De qualquer forma, muito obrigado pela ajuda.
que bom que o cliente aceitou mudar a msg; assim resolveu sem resolver kkkkkkk
vai ficar a curiosidade de saber o que acontece com esta string que não aceita... rsrsrsrsrsrsrsrsrsrs
-
APenas palpite....
if(nBytes := WriteComm(nComm,"AT+CMGS="+Chr(34)+cTel+Chr(34)+Chr(13)+cMsg+Chr(26)+Chr(13))) < 0
cMGS := Esta Certo?
-
creio queu vc vai ter que processar esses dados antes gerando um outro arquivo ou array e ai montar xbrowse
-
Called from: WINCOM.PRG => ATUALIZA_XBR(7177)
Called from: WINCOM.PRG => _LERCOD1(6132)verifica essas linhas, este erro me parece que travou em algum loop... ou então posta esta rotina (linhas em questão) para melhor analises...
-
-
Vlw Pessoal!!!!
Obgdão!!! Sigo tentando entender o manual.... assim que consigui algo mais usual posto aqui....
-
@emotta vc conseguiu?
-
vc pode tambem usar o objeto CheckBox no Fast sem precisar usar imagem... ele permite exibir as duas imagens que vc quer... ai só formatar com a codição da variavel no relatório....
-
Em 25/06/2021 at 16:21, emotta disse:22 horas atrás, kapiaba disse:
Bom dia Eduardo, já tem farto material sobre isto no Forum Inter, só não sei os links e a preguiça neste frio, é grande... kkkkkkkkkkkkkk
Tem que procurar, é muita coisa... Abraços.
Não meu caro @kapiaba, a questão de gerar o QR-Code esta tranquilo, temos todo material necessário.... o que está sendo discutido é de gerar os dados do QR-CODE para o PIX, de forma que o usuáiro ao ler o QR-CODE consiga fazer o pagamento da Promissória.... veja esse material https://www.bcb.gov.br/content/estabilidadefinanceira/spb_docs/ManualBRCode.pdf
-
https://www.bcb.gov.br/content/estabilidadefinanceira/spb_docs/ManualBRCode.pdf
Achei isso...
mas ainda não entedi como gerar... se alguem interessar.... é conseguir... compartilha ai... obgdao
-
21 horas atrás, kapiaba disse:
OK! Mas que quero é poder gerar o qr code dentro do meu sistema, no ato de uma venda por exemplo... qdo fizerem uma venda, imprimir o pedido, sair com qr code para o cliente poder fazer o pagamento... exemplo: faz uma venda no valor de $50,00; qdo imprimir a notinha, sair o qr code com a chave pix da loja ja no valor de $50,00...
gerar o qr code como faz o site www.gerarpix.com.br
-
Boa Tarde Pessoal!!!
Alguem sabe ou ja vez uma rotina para gerar o QR Code de PIX com valor ja cliente tem que pagar? como gerar um qr-code até tenho aqui, o que realmente preciso é saber como criar link do qr code.... para que qdo for lido pelo app do banco aceite link.
-
Isso Esta Certo ?
FUNCTION AbrirGavetaRLI(lTpGaveta)
If lTpGaveta // Abre Gaveta Impressora Fiscal
IF B_ACIONAGA() <> 1
MsgStop("Erro ao Abrir a Gaveta","GAVETA")
Else
MsgWait("Gaveta Aberta com Sucesso","GAVETA",2)
EndIf
Else // Abre Gaveta Impressora Não Fiscal
oPrn:= TDosPrn():New()
oPrn:command("27, 118, 140")
oPrn:End()
EndIf
Return nil -
Utilizando a DLL da bematech será que funciona?
pois tem uma função lá para abrir gaveta...
-
Boa Tarde!!!
Cliente pediu para que meu sistema interaja com gaveta bematech, porem meu sistema não é fiscal mas imprimo em uma impressora da Bematech não fiscal...
tem como fazer isso? como poderia fazer?
e outra coisa, eu não tenho a gaveta para testar, teria como testar virtual?
Desde ja muito obrigado!!!
-
Vlw Pessoal!!! Muito Obrigado a Todos!!! Mudei conforme indicado pelos feras, até o momento o cliente não relatou problema...
-
18 horas atrás, emotta disse:
Se a função Unlockrecord for sua coloque o Dbcommit dentro dela
é sim! boa idéia, vou fazer assim, que ai em todos ja ficam.... vlw obgdo
-
3 horas atrás, emotta disse:
Coloque dbcommit() antes do unlockrecord
Vlw emotta, vou testar isto para ver se resolve... Obgdão!!!
-
Bom Dia Pessoal!!!
Precisando de uma "LUZ NO FIM DO TUNEL"
Um Cliente relata que altera a qtde de produto e que na hora aparece na tela que gravou, depois no outro dia vai ver a qtde esta errada , e que não foi feita nenhuma venda ou entrada deste produto, mas testo aqui no meu e tudo funciona não dar este problema... não sei onde procurar este problema mais... a rotina que altera a qtde é esta:
*** Aqui Chamo Function p
oBrw:aCols[05]:nEditType := EDIT_GET
oBrw:aCols[05]:bOnPostEdit := {|o,x| GravaAltQtde(x), oBrw:Refresh(), oDlg:Update(), oDlg:Refresh() }
oBrw:aCols[05]:cEditPicture := "@E 999,999.99"
oBrw:aCols[05]:lEditBorder := .f.
oBrw:aCols[05]:bEditValid := {|| oBrw:SetFocus(), .t. }
Function GravaAltQtde(_x)
Local nSelect := Select()
Local nQtdeAnterior := M_QUANTIDA
******** Grava no Arquivo de Produtos a nova Qtde
RecLock()
Replace BanMerca->M_QUANTIDA With _X
Replace BanMerca->M_DENTRADA With Date()
Replace BanMerca->M_QENTRADA With _X
UnLockRecord()
******* Grava no Arquivo de Entradas a Qtde e Produto Alterado
Sel("BanEntr",1)
DbGoBottom()
nNumero := P_NUMPEDID + 1
DbGoTop()
AppendRec()
Replace P_NUMPEDID With nNumero
Replace P_CODIGO With BANMERCA->M_CODIGO
Replace P_DESCRICA With BANMERCA->M_DESCRICA
Replace P_VRPRECO With BANMERCA->M_VENDA
Replace P_VRCUSTO With BANMERCA->M_CUSTO
Replace P_QTDE_A With nQtdeAnterior
Replace P_QUANTIDA With _X
Replace P_DATAMOV With Date()
Replace P_HENTRADA With Transform(Time(),"99:99")
UnLockRecord()
DbCloseArea()
Select( nSelect )
Return(.t.) -
@emotta vê se neste forum que estão se tem algum que lhe ajude https://www.guj.com.br/t/como-consultar-cpf-na-receita-federal-usando-web-service/167867/7
PRINT oPrn TITLE "Impressão Relatório" PREVIEW MODAL
in Programação
Posted
Boa Tarde!!!!
Como faço para "setar" a pagina do relatório para que fique sempre A4...
Seguinte: no cliente ele utiliza uma impressora não fiscal como padrão (Bematech), ai acontece que qdo ele vai fazer o relatório, a pagina fica da largura da impressora nao fiscal.. mesmo eu utilizando oPrn:SetPage( 9 ) (Folha A4)