jfaguiar

Copiei Theo. Obrigado

Olá Amigos. Como faço para gravar a posição da linha do array num EDIT_LISTBOX de xBrowse? Exemplo, quando eu selecionar o mês, gravar o posição do array e não conteúdo do array. aMeses := {"janeiro","fevereiro","março","abril","maio","junho","julho","agosto","setemro","novembro","dezembro"} oBrw:aCols[3]:bOnPostEdit := { | oCol, xVal, nKey | If( nKey == VK_RETURN,TBSELEXCE->MES := xVal,) } oBrw:aCols[3]:nEditType := EDIT_LISTBOX oBrw:aCols[3]:aEditListBound := aMeses oBrw:aCols[3]:aEditListTxt := aMeses Obrigado galera

Boa noite amigo. Eu também certamente irei ter dúvidas como a sua, pois irei começar migração para mysql em breve. Há poucos dias, interroguei os companheiros do forum e me disseram que na nova versão do fw não é necessário nenhuma rdd, tipo sqlrdd, sqllib, dentre outras. acho que com essa debanda de usuários dos dbfs para o sql, seria interessante uma sala só para esses assuntos envolvendo sql. Atualmente, utilizando o Mysql com Workbench, consigo fazer muita coisa no banco e se esses comandos que utilizo no workbench funcionarem do mesmo jeito dentro do Fivewin, ai será o paraíso para os migradores dos dbfs para o sql.

Olá pessoal. Utilizo a versão 13.07 do Fw+xHb e vi alguns posts aqui sobre as nova versões do Fivewin com acesso a Sql e gostaria de tirar uma duvida. Adquirindo essa nova versão, eu devo mesmo assim utilizar um rdd, como a sqlrdd ou não será necessário? Desde já agradeço as informações galera.

Isso é muito interessante. Há algum tempo me vi numa situação difícil quando um cliente antigo me pediu para fazer uma extensão do sistema em tablet!!! A minha sorte foi que o aplicativo fw roda em tablets com o Windows!

Olá Kapiaba. Tô tentando compilar em FW 13.07 dar uma erro na linha 1128 no metodo METHOD Memory(n) CLASS TSystemInfo: errorsys.prg(1111) Error E0030 Syntax error: "syntax error at '1'" Sabe me dizer o que é

No clipper era assim, bastava colocar um " * " junto com a cor SETCOLOR("N/BG") @ 05,16 CLEAR TO 07,78 @ 05,18 SAY "Pesquisa: Informe o nome ou o c¢digo do cliente" @ 06,18 SAY "[Insert] Inclui um novo cliente ³ [F4] Altera" @ 06,19 SAY "Insert" COLOR "N*/BG" @ 07,19 SAY "[F9] Cadastra obserao" SETCOLOR(VCORSEL)

Olá Eu tenho em dbf essa tabela de ocorrencia do santader e do bradesco. Passa seu e-mail que te mando. Para os demais bancos você deve abrir o manual e sair copiando e colando nessa tabela.

rsrs acabei usando a Tprint e deu certo amigo. Obrigado pela contribuição. vlw

Yes, it is possible Pelo menos na argox OS 214 Plus deu certo meus amigos. Veja o fonte final. Espero que seja útil para os membros da melhor comunidade de programadores do planeta!

Não sei o que aconteceu meus amigos, se é o driver que está desatualizado, ou se estou selecionado o fonte errado, quando seleciono aquela letra F ou G...só sei que o código de barras não imprimiu nem com reza braba! Resolvi assim amigos para imprimir num formulário com três etiquetas na horizontal. Note que delimitei a altura da pagina em 140, ou seja, cada 3 etiquetas, uma pagina. #INCLUDE "FiveWin.ch" FUNCTION Main() LOCAL cFontBC:="3OF9_NEW.TTF" AddFontResource(cFontBC) nLARGURA := 2100 nALTURA := 140 cCODPROD1 := "000015401" cCODPROD2 := "000015402" cCODPROD3 := "000015403" PRINT oPrn NAME "Etiquetas..." PREVIEW MODAL FROM USER DEFINE FONT oFontBC NAME "3 of 9 Barcode" SIZE -21,-25 OF oPrn // 3 of 9 Barcode -54,-68 DEFINE FONT oFont NAME "Arial" SIZE 0, -7 OF oPrn oPrn:SetSize( nLARGURA, nALTURA ) FOR n := 1 TO 3 nPROW := 0.1 PAGE oPrn:CmSay(nPROW,00.5,"PRODUTO 1 PRODUTO 1",oFont,NIL,CLR_BLACK,NIL,NIL) oPrn:CmSay(nPROW,04.0,"PRODUTO 2 PRODUTO 2",oFont,NIL,CLR_BLACK,NIL,NIL) oPrn:CmSay(nPROW,07.5,"PRODUTO 3 PRODUTO 3",oFont,NIL,CLR_BLACK,NIL,NIL) nPROW += 0.3 oPrn:CmSay(nPROW,00.5,"*"+cCODPROD1+"*",oFontBC,NIL,CLR_BLACK,NIL,NIL) oPrn:CmSay(nPROW,04.0,"*"+cCODPROD2+"*",oFontBC,NIL,CLR_BLACK,NIL,NIL) oPrn:CmSay(nPROW,07.5,"*"+cCODPROD2+"*",oFontBC,NIL,CLR_BLACK,NIL,NIL) // nPROW += 0.7 oPrn:CmSay(nPROW,01.5,cCODPROD1,oFont,NIL,CLR_BLACK,NIL,NIL) oPrn:CmSay(nPROW,05.0,cCODPROD2,oFont,NIL,CLR_BLACK,NIL,NIL) oPrn:CmSay(nPROW,08.5,cCODPROD3,oFont,NIL,CLR_BLACK,NIL,NIL) ENDPAGE NEXT ENDPRINT RETURN Nil ***************************************************************************

Boa tarde amigos. Há alguma possibilidade em FW+xH de imprimir etiquetas em uma mini impressora ? Tipo assim ... Print Page ... Imprime etiquetas com o meu font como em uma impressora A4...Imprime etiquetas com o meu font como em uma impressora A4... Endpage Endprint

vlw. é nozis thanks

Eu vou ter que dar uma saída kapiaba. Me responte uma coisa caríssimo, é possivel usar a Tprint nessa impressora, como ocorre em a4? Exemplo: LOCAL cFontBC:="3OF9_NEW.TTF"//"c39hrp24dltt"// AddFontResource(cFontBC) PRINT oPrn NAME "Etiquetas..." PREVIEW MODAL FROM USER DEFINE FONT oFontBC NAME "3 of 9 Barcode" SIZE -200,-35 OF oPrn // 3 of 9 Barcode -54,-68 PAGE oPrn:CmSay(nL,Nc1,"*"+nALFANUM+"*",oFontBC,NIL,CLR_BLACK,NIL,NIL) oPrn:CmSay(nL,Nc2,"*"+nALFANUM+"*",oFontBC,NIL,CLR_BLACK,NIL,NIL) oPrn:CmSay(nL,Nc3,"*"+nALFANUM+"*",oFontBC,NIL,CLR_BLACK,NIL,NIL) ENDPAGE ENDPRINT

O meu código tem 9 digitos kapiaba. Deve ser por isso que não tá saindo. No comando abaixo, cocê sabe me dizer qual a letra para selecionar o font 3OF9_NEW.TTF ? No caso EAN13 é F e EAN8 é G ok? fWrite(oHandle,"1F0004000060040"+cCodProd+oCR)

Testei a impressão só do código sem a descrição e código, mas mesmo assim não imprime a barra, só dar um pequeno avanço na impressora. Será que não está faltando algum fonte no meu windows?

Foi mal, faltou o FWrite(oHandle, "E" + oCR ). Então kiko, saiu o valor e descrição, mas não saiu o código de barra. Só pra esclarecer, esse meu código só tem 9 digitos "000015402". Muito obrigado pela força

Olá Kiko. Teste i assim mas não imprimiu nem a descrição. Testei imprimir somente a descrição mas também nãp saiu. Não chegou nem acionar o formulário como ocorria antes.

Olá galera. Tamo chegando lá. Eu instalei a impressora em PPLA e testei o envio da descrição do produto e foi ok. O código foi este: FWrite(oHandle, "190000100900080" + cDESCRI + oCR ) FWrite(oHandle, "190000100900425" + cDESCRI + oCR ) FWrite(oHandle, "190000100900770" + cDESCRI + oCR ) Em seguida fiz outro teste enviando somente um código de barra de um código de 9 números, mas somente avança o papel e não sai nada. Segue os códigos que testei: cCODPROD := "000015402" FWrite(oHandle, "1G0008000900080" + cCODPROD + oCR ) // ean8 FWrite(oHandle, "1F0008000900080" + cCODPROD + oCR ) // ean13 PT AL L C Alguém dar uma luz?

Parece pratico. Nesse seu exemplo, mIMPRESSORA:="etiqueta", etiqueta, seria o nome de uma impressora generic text only cadastrada? Obrigado pelo help

Entedeu. Já vi um exemplo que você deixou aqui e vou fazer assim. Vlw parça.

fiz assim: STATIC FUNCTION GeraZipXmlSat() LOCAL oDlg,nMONTH,nANO,cANO,cFOLDERSAT,aXMLSAT,oCbx LOCAL aMESES := {"Janeiro","Fevereiro","Março","Abril","Maio","Junho","Julho","Agosto","Setembro","Outubro","Novembro","Dezembro"} dDATAF := DATE() nMONTH := MONTH(dDATAF) WHILE .T. -- dDATAF IF MONTH(dDATAF) # nMONTH EXIT ENDIF ENDDO nMES := MONTH(dDATAF) nANO := YEAR(dDATAF) cMES := aMESES[nMES] WHILE .T. DEFINE DIALOG oDlg FROM 5, 5 TO 22,60 TITLE 'Geração de Arquivo Xml Sat' oDlg:Cargo := .F. @ LINS(01.0),COLS(01) SAY "Informe o Mês Para Gerar:" @ LIND(02.0),COLD(01) COMBOBOX oCbx VAR cMES ITEMS aMESES SIZE 70,550 OF oDlg; STYLE CBS_DROPDOWN ; ON CHANGE ( nMES := oCbx:nAt,oCbx:Refresh() ) @ LINS(03.2),COLS(01) SAY "Informe o Ano:" @ LING(04.0),COLG(01) GET nANO PICT "9999" COLORS CLR_FONGET,CLR_FUNGET @ oDlg:nHeight()/2-19,oDlg:nWidth()/2-70 BTNBMP SIZE 30,15 Pixel; FILENAME "&cDRIVE\SISCOM\bitmaps\BTNOK.bmp"; ACTION (oDlg:Cargo := .T.,oDlg:End() ) @ oDlg:nHeight()/2-19,oDlg:nWidth()/2-35 BTNBMP SIZE 32,15 Pixel; FILENAME "&cDRIVE\SISCOM\bitmaps\BTNCANC.bmp"; ACTION oDlg:End() ACTIVATE DIALOG oDlg CENTERED SETKEY(VK_F3,{ }) IF !oDlg:Cargo .OR. nANO < 2016 EXIT ENDIF cANO := STR(nANO,4) dDATAI := "01/" + STRZERO(nMES,2) + "/" + RIGHT(cANO,2) dDATAI := CTOD(dDATAI) dDATAF := CHKPERIODO( dDATAI + 25,"F" ) // // Cria a pasta destino // cFOLDERSAT := "C:\SISCOM\XmlSat" + STRZERO(nMES,2) + cANO IF !lISDIR(cFOLDERSAT) lMkDir(cFOLDERSAT) ENDIF // // Busca os xmls na pasta onde eles estão // aXMLSAT := DIRECTORY("C:\SISCOM\CFe*.xml") lChDir(cFOLDERSAT) // Vou para a pasta dos arquivos xmls // // Copia somente os arquivos que estiverem no periodo especificados // FOR n := 1 TO LEN(aXMLSAT) dDATAXML := aXMLSAT[n,3] IF MONTH(dDATAXML) = nMES .AND. YEAR(dDATAXML) = nANO cARQXML := aXMLSAT[n,1] cDESTINO := cFOLDERSAT + "\" + cARQXML IF !FILE(cDESTINO) COPY FILE C:\SISCOM\&cARQXML TO &cDESTINO ENDIF ENDIF NEXT RELEASE aXMLSAT* // // Executa o winrar para compactar. No meu caso deixo na pasta \siscom\utilitarios // cComando := cDRIVE + "\Siscom\Utilitarios\Winrar A XmlSat" + STRZERO(nMES,2) + cANO + ".ZIP CFe*.xml" WinExec( cComando ) // // Inicio a rotina de e-mail para abrir o outlook e anexar o arquivo // cTXTEMAIL := "Bom dia" + chr(13)+chr(10) cTXTEMAIL += chr(13)+chr(10) cTXTEMAIL += "Segue anexo arquivo compactado com os arquivos xml do Cupom Fiscal" + chr(13)+chr(10) cTXTEMAIL += "Eletrônico da empresa Prolar Ref. "+STRZERO(nMES,2) +"/"+ cANO + chr(13)+chr(10) cTXTEMAIL += chr(13)+chr(10) cTXTEMAIL += "Obrigado "+chr(13)+chr(10) cSubject := "XmlSat Prolar " +STRZERO(nMES,2) +"/"+ cANO cRecipients := "contabilxxx@hotmail.com" cArq := cFOLDERSAT + "\XmlSat" + STRZERO(nMES,2) + cANO + ".ZIP" lChDir("C:\SISCOM") // retorno para a pasta do meu aplicativo Mmail( TRIM(cRecipients),,cSubject,cTXTEMAIL,cArq ) // Minha função de email ENDDO RETURN Nil ************************************************************************************** function Mmail(cTo,cSentBy,cEmailHeader,cEmailNotes,cANEXO1) oOutLook := TOleAuto():New("Outlook.Application") oMailItem := oOutLook:Invoke("CreateItem", 0) oMailitem:to:=cTo oMailitem:CC:= cSentBy oMailItem:Subject := cEmailHeader oMailItem:Body := cEmailNotes if ! empty(cANEXO1) IF VALTYPE(cANEXO1) == "C" oMailItem:Attachments:Add(cANEXO1) ELSEIF VALTYPE(cANEXO1) == "A" FOR _i := 1 TO LEN(cANEXO1) oMailItem:Attachments:Add( cANEXO1[_i] ) NEXT ENDIF endif oMailItem:display(.T.) RETURN(nil) ************************************************************************************ FUNCTION CHKPERIODO(dDATA,cOPC) LOCAL nMONTH := MONTH(dDATA) FOR nDAY = 1 TO 32 IF MONTH(dDATA) # nMONTH EXIT ENDIF IF cOPC == "F" ++ dDATA ELSE -- dDATA ENDIF NEXT IF cOPC == "F" RETURN(dDATA-1) ELSE RETURN(dDATA+1) ENDIF ***************************************************************************

Bom dia Kapiaba. Estou tentando gerar codigo de barras na argox, será que se eu cadastrar ela como somente texto , instalar o driver dela e mandar um texto gerado conforme o exemplo da Ana (veja link abaixo) para a Argox como nesse exemplo funúncia?