Ladinilson

Boa Kapi, vou fazer! Thanks

Show

Se vc conseguir, quero também rsrsrs Ja deu uma pesquisada nos sites do Delphi? Ele é um ótimo gerador mais falta umas coisas nele para ficar como o Kapi chama...The Best!

Sou daqui do Pará e conheço Marituba que é perto um pouco de onde moro e certamente não é uma área rural esta rua, como disse o sofredor Corinthiano..."tem boi na linha"

Não fale isso que ele vai ficar chateado, mesmo porque o time dele perdeu ontem em casa kkkkk

FUNCTION pSema(Dia,Tipo,Acento) **--------------------------------------** ** Retornar o dia da semana * ** Sintaxe : pSema(arg1,arg,arg3) ** Arg1 = Data/Variavel ** Arg2 = 1=dia simples, 0=dia completo (segunda.segunda-feira) ** Arg3 = 1 remover acentos ** Exemplo : @ 10,10 SAY pSema(date(),1,1) ** Retorno : Terca-Feira **--------------------------------------** a=DOW(dia) dia="" DO CASE CASE a = 1 dia="Domingo" CASE a = 2 dia=IF(Tipo==1,"Segunda","Segunda-Feira") CASE a = 3 dia=IF(Tipo==1,"Terça","Terça-Feira") CASE a = 4 dia=IF(Tipo==1,"Quarta","Quarta-Feira") CASE a = 5 dia=IF(Tipo==1,"Quinta","Quinta-Feira") CASE a = 6 dia=IF(Tipo==1,"Sexta","Sexta-Feira") CASE a = 7 dia="Sabado" ENDCASE IF(Acento==1) dia:=TiraAcento(dia) ENDIF RETURN(dia) Tente por aqui, faça um loop de 1 a 31 para ver as sextas do mês. Abraços

Procure (AT()) pela barra ("\") e guarde em uma variável a última vez que a encontrou e depois use uma função (SUBSTRING()) para "pegar" tudo depois dela. Abs

Como seria o cTxt por exemplo?

Boa entendi! Mas amanhã será a guerra dos queixudos...quem vencerá?! Cassio ou Pedro? kkkkkkkk

Calma que amanhã terás muitas emoções em Itaquera kkkk É que pesquisando e estudando ele, vi que TODOS os programadores usam e me pareceu um componente da linguagem.

Desculpem aos que usam outros meios para criação de relatórios e impressões afins (TPrinter, TDOSPrn, etc), mas me estapeio todos os dias em não ter conhecido logo o FASTREPORT. Cara por exemplo, as etiquetas que basta vc criar uma e dizer número de colunas, espaço entre elas que ele faz TUDO SOZINHO, e também os problemas com várias impressoras então que acabou, inclusive as etiquetadoras como ARGOZ e ZEBRA não tem mais o martírio de conhecer todos aqueles códigos para loucos. Você insere CAMPOS e VARIÁVEIS de maneira simles e ainda pode clicar e arrastar para dentro do formulário mano. Me desculpem de novo mas como fui perder tanto tempo em não conhecer esta ferramenta beeeem mais cedo. Mas me respondam, ela é um componente do DELPHI? Abs

Serei um pouco mais prático.... Pegue esse e aprveite, tem umas dialogs ai e podes apagar e também já esta com o Manifest. Abraços e bom final de semana LESTDIAL.res

Não querendo ser chato mas pra mim é: XDev Studio v0.72 Black Pelles C (8.00.64 esta versão que algumas depois dão pau) FastReport (Esse descobri agora e não sei porque perdi tento tampo em não usar esta execelente ferramenta) Abraços

Obrigado Kapi, resolvi fazer em FastReport e ficou show de bola com tudo e até QR Code pois se não fosse essa solução, essas bombas da Argox é um saco. E olha o coração quando teu time for jogar com o mengão kkkkk

Amigo esta linguagem da Zebra poderia ser usada em uma ARGOZ OS- 2140 em PPLA ou emular para usá-la? O Visualizador On Line é muito bom para contruirmos a etiqueta e depois só usar como no exemplo abaixo que é ao meu ver beeeeem mais simples: FUNCTION ETIQUETA_ZEBRA(nPEDI, nVOLU) LOCAL nQTDE:=[1] PRIVATE TXTARQ, WLINHA, nTAMANHO, TXT:=[], xTXT:={} PRIVATE AAA := CurDrive()+":\"+CurDir()+[\TEMP\ETI]+SUBSTR(TIME(),1,2)+SUBSTR(TIME(),4,2)+SUBSTR(TIME(),7,2)+[.PRN] PRIVATE ARQTESTE IF ( ARQTESTE := FCreate( AAA,0 ) ) == F_ERROR HWG_MSGINFO([Nao criou o arquivo]+CRLF+ALLTRIM(AAA)) RETURN NIL ELSE FCLOSE(ARQTESTE) ENDIF SAIR() @ 01,00 SAY PADC([Imprimir etiquetas de envio - ZEBRA], 80 ) @ 11,00 SAY [No. Pedido: ] GET nPEDI PICT [999999] @ 12,00 SAY [No Volumes: ] GET nVOLU PICT [999] READ IF LASTKEY() = 27 SAIR() RETURN NIL ENDIF USE xMITI NEW SHARED SET INDEX TO XMITNOTA DBSEEK(nPEDI, .F.) IF FOUND() cCODCLI:=CODCLI ; cRAZ:=RAZAO ; cNNF:=NNFE ; xOBSER1:=OBS1 xOBSER2:=OBS2 ; xOBSER3:=OBS3 ; xOBSER4:=OBS4 ; xVLRNFe:=TOTNOTAS CLOSE DATA USE xCLIENTE SHARED NEW SET INDEX TO xRCLICOD DBSEEK( cCODCLI, .F.) IF FOUND() cENDERECO:=ENDENTREGA ; cBAIRRO:=BAIEN ; cCIDADE:=CIDADEEN ; cUF:=ESTAEN ; cCEP:=CEPEN SAIR() ELSE nOPT:=0 ALERTNEW([Dados do cliente nao localizados]) SAIR() RETURN NIL ENDIF ELSE nOPT:=0 ALERTNEW([Pedido nao localizado]) SAIR() RETURN NIL ENDIF C:=1 DO WHILE C <= nVOLU IF C = 1 TXT := [^XA~TA000~JSN^LT0^MNW^MTD^PON^PMN^LH0,0^JMA^PR4,4~SD15^JUS^LRN^CI0^XZ] AADD( xTXT, TXT ) ENDIF TXT:=[^XA] AADD( xTXT, TXT ) TXT:=[^PW831] AADD( xTXT, TXT ) TXT:=[^LL0799] AADD( xTXT, TXT ) TXT:=[^LS0] AADD( xTXT, TXT ) TXT:=[^CF0,50] AADD( xTXT, TXT ) TXT:=[^FO50,50^FDHospitalar Com Med Ltda^FS] AADD( xTXT, TXT ) TXT:=[^CF0,30] AADD( xTXT, TXT ) TXT:=[^FO50,100^FDR 303^FS] AADD( xTXT, TXT ) TXT:=[^FO50,140^FDJardim America^FS] AADD( xTXT, TXT ) TXT:=[^FO50,180^FDCep: 99999-999 - GO - GO^FS] AADD( xTXT, TXT ) TXT:=[^FO50,220^FDTel: (64) 9999-9999 ^FS] AADD( xTXT, TXT ) TXT:=[^FO50,250^GB720,1,3^FS] AADD( xTXT, TXT ) TXT:=[^CF0,25] AADD( xTXT, TXT ) TXT:=[^FO50,280^FDDestinatario:^FS] AADD( xTXT, TXT ) TXT:=[^CF0,30] AADD( xTXT, TXT ) TXT:=[^FO50,330^FD]+ALLTRIM(cRAZ) +[^FS] AADD( xTXT, TXT ) TXT:=[^FO50,370^FD]+ALLTRIM(cENDERECO)+[^FS] AADD( xTXT, TXT ) TXT:=[^FO50,410^FD]+ALLTRIM(cBAIRRO) +[^FS] AADD( xTXT, TXT ) TXT:=[^FO50,450^FDCEP: ]+ALLTRIM(cCEP) +[ ]+ALLTRIM(cCIDADE)+[ ]+ALLTRIM(cUF) + [^FS] AADD( xTXT, TXT ) TXT:=[^FO50,510^GB720,1,3^FS] AADD( xTXT, TXT ) TXT:=[^CF0,35] AADD( xTXT, TXT ) TXT:=[^FO50,540^FDNo. NFe: ]+STRZERO(cNNF,9) + [ Valor NFe: R$ ]+STR(xVLRNFe,12,2)+[^FS] AADD( xTXT, TXT ) TXT:=[^FO50,600^FDVolumes: ]+STRZERO(C,4)+[/]+STRZERO(nVOLU,4)+[ No. Pedido: ]+STRZERO(nPEDI,7)+[^FS] AADD( xTXT, TXT ) TXT:=[^FO50,650^GB720,100,2^FS] AADD( xTXT, TXT ) TXT:=[^FO60,690] AADD( xTXT, TXT ) TXT:=[^FDPor favor atencao: CUIDADO MATERIAL FRAGIL^FS] AADD( xTXT, TXT ) TXT:=[^PQ1,0,1,Y^XZ] AADD( xTXT, TXT ) C++ ENDDO A:=1 TXTARQ := FOPEN( AAA, 2 ) nTAMANHO := LEN(xTXT) DO WHILE A <= nTAMANHO WLINHA:= ALLTRIM(xTXT[A])+CHR(13)+CHR(10) FSEEK( TXTARQ, 0, 2 ) FWRITE( TXTARQ, ALLTRIM(WLINHA), LEN(WLINHA)) A++ ENDDO FCLOSE(TXTARQ) cArquivo:=alltrim(AAA) Escolhe_impressora( cArquivo ) //Escolhe_impressora_VISUAL( cArquivo ) // teste visual em 01/10/2015 /* cImpressora := GetDefaultPrinter() // Pego a Impressora Padrão, como expliquei acima já deixo a Argox como padrão PrintFileRaw(cImpressora, cArquivo, [Teste]) // Jogo o arquivo nela, ela pode estar LPT1, USB q vai embora... */ SAIR() RETURN NIL Abraços

Boa tarde meus caros, pela falta de tempo e urgência, alguém tem algo já pronto para uma transportadora aérea impressa na ARGOX? Obrigado seria essa para montar,

Foi-se o tempo que apenas um DBF ficava todo atualizado kkkkkkk Uso um antigo que deve não ter várias cidades ou códigos rsrsr Se alguém tiver um (DBF) me arranja por favor ladinilson@hotmail.com

Eu esperava um "dbfzinho" mas os caras deram logo a solução definitiva kkkk Valeu!

Eu também queria, a minha é muito antiga.

Desde o Windows Server já estamos com várias soluções além de umas versões pra cá, o windows disponibiliza o Terminal Service e ultimamente apareceram muitas inclusive uma bem interessante aqui neste forum mesmo mas continuo achando que o nosso "calcanhar de Aquiles" é em mobile (aplicativos) e essa, acho que não teremos nenhuma solução a não ser estudar outras linguagens ao meu ver. Umas das alternativas seria neste tópico...

Veja se ajuda... // Para Usar Tecla ALT+Letra. By Ednaldo Rolim Static Function Teste( nKey, nFlags ) local cKey:= CHR( nKey ) If GetKeyState( VK_CONTROL ) .And. ; GetKeyState( VK_SHIFT ) MsgInfo( " CONTROL + SHIFT + " + cKey ) ElseIf GetKeyState( VK_CONTROL ) MsgInfo( " ALT + CONTROL + " + cKey ) ElseIf GetKeyState( VK_SHIFT ) MsgInfo( " ALT + SHIFT + " + cKey ) ElseIf GetKeyState( VK_MENU ) // alt key MsgInfo( " ALT + " + cKey ) EndIf // By Ednaldo Rolim - The Best. cKey:= Upper( cKey ) IF cKey == "I" // Alt+I MsgInfo( " INCLUIR" ) ELSEIF cKey == "A" // Alt+A MsgInfo( " ALTERAR" ) ELSEIF cKey == "E" // Alt+E MsgInfo( " EXCLUIR" ) ELSEIF cKey == "P" // Alt+P MsgInfo( " IMPRIMIR" ) ELSEIF cKey == "R" // Alt+R MsgInfo( OemToAnsi( " RELATàRIOS" ) ) ENDIF Return( nKey ) Abraços

Muito boa notícia, pois notícias que aliviam nossas limitações (principalmente nesta área), são muito bem vindas.

Assunto MUUUITO interessante já que no momento, nada de recursos para soluções WEB para quem já tem seu sangue esta linguagem e qualquer coisa se torna uma luz no fim do túnel, irei acompanhar.

Entrei e esta normal! Qual seria o problema?

Não faça isso senão o João te esfaqueia! kkkkkk