Theotokos

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)

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 End Monta 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

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....

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

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...

é sim! boa idéia, vou fazer assim, que ai em todos ja ficam.... vlw obgdo

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