betovsp

Olá amigos, tudo bem? Estou utilizando a fastreport para imprimir o boleto de banco. Já validei a linha digitável e o código de barras, porém, na hora da impressão, não consegue ler o código de barras, e utilizando um gerador de código de barras, a impressão realmente é diferente. Alguém passou por esse problema e tem a solução pra me ajudar? Obrigado.

Fiz a troca da dll e resolvido.

Então, testei em outros equipamentos e somente nesse note acontece isso, na hora de criar o sistema aborta.

Bom dia pessoal. Tenho a fast rodando em vários clientes, mas ontém, em um específico, quando ele tenta criar o objeto e abrir a fastreport, o sistema sai sem mensagem de erro, nada. Fiz teste em outros equipamentos e funciona, somente em um notebook não roda, alguém já passou por isso? chamada de abertura: oFrFas := frReportManager():New() Quando chega nessa linha o sistema fecha.

Pessoal, Deus abençoe a todos. Obrigado pelas ajudas desse ano. Feliz Natal e próspero ano novo a todos.

Pessoal, resolvido. Ele estava vindo um espaço, e por isso não convertia com a função val(). Fiz as tratativas e deu certo. Obrigado a todos.

Bom dia, o conteudo é um campo caracter com o valor que busca da balança. Dessa forma que indicou, ainda retorna 0.000

Boa noite pessoal. Estou tentando converter uma variável de caracter para numérico, mas está retornando 0, onde estou errando? cDados:=LEFT(cDados,6) cDados:=LEFT(cDados,3)+"."+RIGHT(cDados,3) ? cDados // aqui mostra corretamento e o tipo é C nPeso:=val(cDados) // aqui retorna 0 Isso é a leitura de uma balança. Vlw.

Noite meu amigo, te mandei email já faz uns dias.

Boa noite, então, o usuário está com privilégio total, inclusive com GRANT. Estou usando o phpMyAdmin para acesso ao banco de dados que coloquei na minha hospedagem, com o xampp local, funciona normalmente, consegue me ajudar nesses privilégios? Skype: betovsp Obrigado.

Bom dia Oscar, já está funcionando seu acesso sqlrdd + mysql na nuvem?

Bom dia jmsilva, você usa sqlrdd com mysql na nuvem? Eu consigo acesso ao banco de dados, até vejo quais as tabelas, mas quando abro a tabela, usando o dbusearea() ou o próprio use mesmo, o sistema aborta. Já passou por isso? Obrigado.

Edu bom dia, estou tentando acesso a uma tabela mysql na nuvem e não estou conseguindo, abre a conexão, me mostra as tabelas, mas na hora de abrir uma tabela o sistema aborta, estou usando a sqlrdd, consegue me ajudar? Obrigado.

Obrigado.

Boa noite pessoal, alguém sabe como adquirir a lib da sqlrdd? Obrigado.

Edu, boa noite, já fiz várias integrações com a API Rest via Json para outros clientes. me chame no Zap: 16988746745 para conversamos sobre ok.

Isso Mesmo Marcio, deu certo, muito obrigado.

Boa noite pessoal. Uso a FastReport e gostaria de saber se tem como imprimir 2 ou mais cópias do documento. Não abro a tela da dll, mando direto para a impressora assim: oFrPrn:PrintOptions:SetShowDialog(.f.) oFrPrn:PrepareReport() oFrPrn:Print(.T.) Existe um comando que coloco a quantidade de cópias que quero?? Obrigado.

Fechado.

Também quero ir nesse encontro com os amigos dessa vez, o primeiro e último foi no segundo encontro realizado em guarulhos, há 15 ou 16 anos atrás poxa vida.

Boa noite meu amigo, Obrigado

Boa noite pessoal. Alguém tem essa versão pra me passar? Obrigado.

Olá pessoal. vou postar aqui como faço a xbrowse, não consigo jogar total no footer utilizando oBrw:aCols:nFooterType:= AGGR_SUM, me ajudem pra ver onde estou errando por favor. @ 75,15 XBROWSE oBrw SIZE 453,165 PIXEL OF oDlgMat UPDATE oBrw:cAlias := ("Cons") oBrw:lRecordSelector := .T. oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL //HIGHLROWRC oBrw:lAllowColSwapping:= .F. //----------------------------> Trocar Colunas oBrw:lAllowRowSizing := .F. //----------------------------> Nao move as Linhas oBrw:bClrStd := { ||{ CLR_BLACK, IIF( Cons->( OrdKeyNo() ) %2 == 0, COR_BRW1, COR_BRW2 ) } } oBrw:bClrSel:={|| {CLR_WHITE,COR_BRW3}} oBrw:bClrSelFocus:={|| {CLR_WHITE,COR_BRW3}} oBrw:bKeyDown:={|nKey| IIF(nKey==VK_DELETE,ExcluiCons(oBrw),NIL)} oBrw:lHScroll:=.F. oBrw:lFastEdit:=.T. oBrw:lAutoAppend:=.T. oBrw:lFooter := .T. // tera rodape oBrw:nFooterLines := 1 // numero de linhas no rodape oBrw:nRowHeight:=29 oBrw:nStretchCol := STRETCHCOL_LAST oBrw:nRowDividerStyle:=2 oBrw:nColDividerStyle:=2 oCol:=oBrw:addcol() oCol:cHeader:="DATA" oCol:bStrdata:={|| Cons->data} oCol:nWidth:=70 oCol:nEditType := 1 //EDIT_GET_BUTTON oCol:cEditPicture := "99/99/9999" oCol:bOnPostEdit := { | oCol, uValue, nLastKey | Cons->data } // oCol:bonPostEdit := { | oCol, uValue, nLastKey | IIf( nLastKey != VK_ESCAPE, (( Cons->(DBRLOCK()), Cons->data:=uValue , Cons->(DBUNLOCK()) )), ) } oCol:bEditValid := <|oGet| Cons->(dbRLock()) xData:=RIGHT(DTOC(oGet:Value()),7) //oGet:Value() IF xData # vRef MsgStop("Mês e Ano da data deve ser igual à referência indicada!","Atenção") Cons->(dbUnLock()) ; Cons->(dbCommit()) Return(.F.) END Cons->data := oGet:Value() Cons->(dbUnLock()) ; Cons->(dbCommit()) Return(.T.) > oCol:nHeadStrAlign := AL_CENTER oCol:nDataStrAlign := AL_CENTER oCol:=oBrw:addcol() oCol:cHeader:="ORDEM" oCol:bStrdata:={|| Cons->codpro} oCol:nWidth:=80 oCol:nEditType := EDIT_GET_BUTTON oCol:cEditPicture := "@!" oCol:bOnPostEdit := { | oCol, uValue, nLastKey | Cons->codpro } oCol:bEditValid := <|oGet| Cons->(dbRLock()) Cons->codpro := oGet:Value() Cons->(dbUnLock()) ; Cons->(dbCommit()) Return(.T.) > oCol:bEditBlock := <|nRow, nCol, oCol| Cons->(dbRLock()) If BuscaBrw(1,4,,"Produtos",,.T.,0) Cons->codpro := Mat->codpro Endif Cons->(dbUnLock()) ; Cons->(dbCommit()) > oCol:nHeadStrAlign := AL_CENTER oCol:nDataStrAlign := AL_CENTER oCol:=oBrw:addcol() oCol:cHeader:="DESCRIÇÃO" oCol:bStrdata:={|| IIF(Mat->(dbSeek(Cons->codpro+Cons->codpro)),Mat->nommat,SPACE(50)) } oCol:nWidth:=210 oCol:nHeadStrAlign := AL_CENTER oCol:nDataStrAlign := AL_CENTER oCol:=oBrw:addcol() oCol:cHeader:="COR" oCol:bStrdata:={|| Cons->cor } oCol:nWidth:=50 oCol:nEditType := EDIT_GET_BUTTON oCol:cEditPicture := "9999" oCol:bOnPostEdit := { | oCol, uValue, nLastKey | Cons->cor } oCol:bEditValid := <|oGet| Cons->(dbRLock()) Cons->cor := Zeracod( oGet:Value() ) IF !Cor->(dbSeek(Cons->cor)) MsgStop("Fábrica inexistente, verifique!","Atenção") Return(.F.) END Cons->(dbUnLock()) ; Cons->(dbCommit()) Return(.T.) > oCol:bEditBlock := <|nRow, nCol, oCol| Cons->(dbRLock()) If BuscaBrw(1,7,,"Cor",,.T.,0) Cons->cor := Cor->codigo Endif Cons->(dbUnLock()) ; Cons->(dbCommit()) > oCol:nHeadStrAlign := AL_CENTER oCol:nDataStrAlign := AL_CENTER oCol:=oBrw:addcol() oCol:cHeader:="DESCRIÇÃO" oCol:bStrdata:={|| IIF(Cor->(dbSeek(Cons->cor)),Cor->descricao,SPACE(50)) } oCol:nWidth:=90 // oCol:bFooter:={|| "TOTAIS: " } oCol:nHeadStrAlign := AL_CENTER oCol:nDataStrAlign := AL_CENTER oCol:=oBrw:addcol() oCol:cHeader:="TAM" oCol:bStrdata:={|| Cons->tamanho} oCol:nWidth:=40 oCol:nEditType := 1 //EDIT_GET oCol:cEditPicture := "@!" oCol:bOnPostEdit := { | oCol, uValue, nLastKey | Cons->tamanho } oCol:bEditValid := <|oGet| Cons->(dbRLock()) Cons->tamanho := oGet:Value() IF Est->(dbSeek(Cons->codfor + Cons->codpro + Cons->cor + Cons->tamanho)) Cons->est:=Est->estatu END Cons->(dbUnLock()) ; Cons->(dbCommit()) Return(.T.) > oCol:nHeadStrAlign := AL_CENTER oCol:nDataStrAlign := AL_CENTER oCol:=oBrw:addcol() oCol:cHeader:="DEIXOU" oCol:bStrdata:={|| TRANS(Cons->qtde,"999")} oCol:nWidth:=55 oCol:nEditType := 1 //EDIT_GET oCol:cEditPicture := "999" oCol:bOnPostEdit := { | oCol, uValue, nLastKey | Cons->qtde } oCol:bEditValid := <|oGet| Cons->(dbRLock()) Cons->qtde := VAL(oGet:Value()) Cons->(dbUnLock()) ; Cons->(dbCommit()) Return(.T.) > oCol:nHeadStrAlign := AL_CENTER oCol:nDataStrAlign := AL_CENTER oCol:=oBrw:addcol() oCol:cHeader:="FICOU" oCol:bStrdata:={|| TRANS(Cons->est,"999")} oCol:nHeadStrAlign := AL_CENTER oCol:nDataStrAlign := AL_CENTER oCol:nWidth:=65 oCol:=oBrw:addcol() oCol:cHeader:="VENDEU" oCol:bStrdata:={|| TRANS(Cons->qtde-Cons->est,"999")} oCol:nHeadStrAlign := AL_CENTER oCol:nDataStrAlign := AL_CENTER oCol:nWidth:=65 oCol:=oBrw:addcol() oCol:cHeader:="VR UNI" oCol:bStrdata:={|| TRANS(Mat->prerep,"@E 999,999.99") } oCol:nDataStrAlign := AL_RIGHT oCol:nWidth:=50 oCol:=oBrw:addcol() oCol:cHeader:="VR TOT" oCol:bStrdata:={|| TRANS((Mat->prerep*(Cons->qtde-Cons->est)),"@E 999,999.99") } oCol:nDataStrAlign := AL_RIGHT oCol:nWidth:=50 oCol:nHeadStrAlign := AL_RIGHT oCol:nDataStrAlign := AL_RIGHT oBrw:aCols[9]:nFooterType:= AGGR_TOTAL AEval( oBrw:aCols, { |o| o:nFooterType := AGGR_SUM, ; o:bOnChange := { || oBrw:MakeTotals(),oBrw:RefreshFooters() } }, 2 ) oBrw:MakeTotals() oBrw:CreateFromCode()

Isso mesmo rochinha, essa explicação bateu com o que ela a balança imprime. Deu certo. Obrigado.