Alain da Silva

boa tarde, estou tendo o mesmo problema de não aparecer as teclas de atalho, somente quando teclo o ALT. Como resolver isso? Uso Windows 10, five 16.06. obrigado

Ficou muito bom Alessandro. Pra atender minhas necessidades, mudei aqui. if i=12 // valor do produto aDet[p_,i,1]:=StrTran(c_tag,".","") aDet[p_,i,1]:=StrTran(aDet[p_,i,1],",",".") else aDet[p_,i,1]:=StrTran(c_tag,",",".") endif Obrigado

Alessandro, tem como arrumar aqui.no <cProd>1802-000001</cProd> <xProd>KIT MOTOR</xProd> <NCM>84099999</NCM> <CFOP>5405</CFOP> <uCom>un</uCom> <qCom>6.0000</qCom> <vUnCom>395.0000000000</vUnCom> ********* aqui trazer 2.370,00 (virgula) <vProd>2.370.00</vProd> ******************************* <uTrib>un</uTrib> <qTrib>6.0000</qTrib> <vUnTrib>395.0000000000</vUnTrib> <indTot>1</indTot>

Alessandro, uma outra coisa, em uma nota que baixei ele traz no xml o valor de 2.370.00. Na página o correto é 2.370,00. Serie interessante manter a formatação da virgula.

bom dia, Alessandro tem atualização?

Bom dia, não esta pegando também o campo imposto. <vTotTrib> Alessandro, esta atualizando??

Alessandro, no endereço o número do destinatário não esta trazendo, em alguns casos. ​Chave: 35160844358067001654550030000152861008410025 Também a data da saída nesse a tag esta <Data Saída/Entrada> só que não tem data então esta trazendo errado. ​Chave: 5368016591254150000​351608674714170001035500 Esta liberado a atualização, não estou conseguindo baixar.

Bom dia, Jorge pra mim aqui funcionou, vc tentou alterar??? AADD(aIde,{{"","cUF","ide",21,"Chave de Acesso",2},; //1- tratamento especial {"","cNF","",0,"Número",0},; //2- tratamento especial {"","natOp","",0,"Natureza da Operação",0},; //3- {"","indPag","",0,"Forma de Pagamento",1},; //4- {"","mod","",0,"Modelo",0},; //5- {"","serie","",0,"Série",0},; //6- {"","nNF","",0,"Número",0},; //7- {"","dhEmi","",0,"Data de Emissão",0},; //8- tratamento especial --------------------​//------------- aqui {"","dhSaiEnt","",0,"Data/Hora de Saída ou da Entrada",0},; //9- tratamento especial ---------------​//------------- {"","tpNF","",0,"Tipo da Operação",1},; //10- {"","idDest","",0,"Destino da operação",1},; //11- {"","cMunFG","",0,"Município da Ocorrência do Fato Gerador do ICMS",0},; //12- {"","tpImp","",0,"Formato de Impressão DANFE",1},; //13- tratamento especial {"","tpEmis","",0,"Tipo de Emissão",1},; //14- {"","cDV","",0,"Chave de Acesso",0},; //15- tratamento especial {"","tpAmb","",0,"Ambiente de autorização:",0},; //16- tratamento especial {"","finNFe","",0,"Finalidade",1},; //17- {"","indFinal","",0,"Consumidor final",1},; //18- {"","indPres","",0,"Presença do Comprador",1},; //19- {"","procEmi","",0,"Processo",1},; //20- {"","verProc","",0,"Versão do Processo",0}}) //21- Estou com outros campos com problema que estou tentando resolver.

Pode ser porque a Tag que aparece na página é : Data/Hora de Saída ou da Entrada e não Data Saída/Entrada. ​Tente ver se funciona assim: {"","dhSaiEnt","",0,"Data/Hora de Saída ou da Entrada",0},; //9- tratamento especial

Desconsiderar

resolvi colocando tudo dentro do pageheader.

boa noite João, só tem uma page1. E também a banda ReportTitle1 só sai na primeira página, nas páginas seguintes ele não coloca. Qual a propriedade para sair em todas as páginas? Na Banda header eu marquei ReprintonNew e ele sai nas outras folhas mas o título não. Obrigado

Pessoal, meu relatório feito no report sai a primeira página em branco (devagar) depois imprime o relatório de 7 paginas e imprime novamente uma página em branco. O que esta errado. #include "FiveWin.ch" FUNCTION RELCLI() CARREGACONFIGPRINT() oFrPrn:= frReportManager():New() oFrPrn:SetWorkArea("ARQEMP", Select("ARQEMP")) oFrPrn:SetWorkArea("ARQCLI", Select("ARQCLI")) oFrPrn:LoadFromFile(".\relpadrao.fr3") oFrPrn:AddVariable("Cabecalho","NomeRel", "'"+"Relatório de Cliente"+"'") oFrPrn:DesignReport() // Comentar para exibir report oFrPrn:ShowReport() // Comentar para impressao direta * oFrPrn:ClearDataSets() oFrPrn:DestroyFR() RETURN NIL Obrigado

kapiaba, isso se aplica também no caso do relatório mostrar uma letra muito maior do que o normal? veja na imagem que o tamanho da página esta normal somente o tamanho dos fontes.

cara, agora vc me pegou. Sabe que eu não cheguei a imprimir o relatório. Só visualizei no preview e agora também não tenho como testar. Mas pode acontecer de mostrar um tamanho grande no preview e na impressão sair certo?

Bom dia, como resolver o problema com relatórios desconfigurados, em um cliente com a impressora laser hp jetpro aparece desse jeito, na minha máquina aparece normal. #include "FiveWin.ch" #include "Utilprn.ch" #include "CORES.ch" FUNCTION RELCLI() LOCAL OPRN,oUtil Local OBRUSH Local nColor := CINZACL IF VERIFICAIMP() ELSE RETURN(.F.) ENDIF PRINTER OPRN NAME "RELATORIO DE CLIENTE" preview MODAL *----------------------------------------------------------- OPRN:SETPAGE(9) DEFINE FONT oFnt0 NAME "Arial" SIZE 0,-6 OF OPRN DEFINE FONT oFnt0B NAME "Arial" SIZE 0,-6 BOLD OF OPRN DEFINE FONT oFnt8 NAME "Arial" SIZE 0,-8 OF OPRN DEFINE FONT oFnt8B NAME "Arial" SIZE 0,-8 BOLD OF OPRN DEFINE FONT oFnt10 NAME "Arial" SIZE 0,-10 OF OPRN DEFINE FONT oFNT3 NAME "Times New Roman" SIZE 0, -8 OF oPrn DEFINE FONT oFNT4 NAME "Times New Roman" SIZE 0, -10 BOLD OF oPrn DEFINE FONT oFNT5 NAME "Times New Roman" SIZE 0, -14 BOLD OF oPrn DEFINE FONT oFNT6 NAME "Times New Roman" SIZE 0, -16 BOLD OF oPrn DEFINE FONT fTitulo NAME "Times New Roman" SIZE 0,-17 OF OPRN DEFINE FONT fExpandido NAME "Arial" SIZE 0,-12 OF OPRN DEFINE FONT fNormal6 NAME "Arial" SIZE 0,-6 OF OPRN DEFINE FONT fNormal8 NAME "Arial" SIZE 0,-8 OF OPRN DEFINE FONT fNormal9 NAME "Arial" SIZE 0,-9 OF OPRN DEFINE FONT fNormal10 NAME "Arial" SIZE 0,-10 OF OPRN DEFINE PEN oPen WIDTH 3 COLOR CLR_BLACK DEFINE PEN oPen2 WIDTH 3 COLOR CLR_WHITE DEFINE UTILPRN oUtil PEN oPen OF oPrn DEFINE BRUSH OBRUSH COLOR nColor *----------------------------------------------------------- PAG := 1 BEGIN SEQUENCE CABECALHO("RELATÓRIO DE CLIENTE","",OPRN,PAG,oUtil) XLN:=3.5 LN:=3.5 sele 1 dbsetorder(2) ARQCLI->(dbgotop()) DO WHILE !ARQCLI->(EOF()) UTILPRN OUTIL XLN,1 SAY ARQCLI->RAZAO FONT ofnt4 UTILPRN OUTIL XLN,20.2 SAY ARQCLI->TELEFONE FONT ofnt4 right XLN := XLN + 0.4 UTILPRN oUtil XLN,1 SAY ALLTRIM(ARQCLI->ENDERECO)+" , "+ALLTRIM(ARQCLI->NUMERO)+" , "+ALLTRIM(ARQCLI->BAIRRO) FONT ofnT4 XLN := XLN + 0.4 UTILPRN oUtil XLN,1 SAY ARQCLI->CGCCLI+" - I.E."+IIF(ALLTRIM(ARQCLI->INSCEST)<>" ",ARQCLI->INSCEST,"I.E. ISENTO") FONT ofnT4 XLN := XLN + 0.4 UTILPRN oUtil XLN,1 SAY ALLTRIM(ARQCLI->CIDADE)+"/"+ARQCLI->ESTADO+" - CEP "+ARQCLI->CEPCLI FONT ofnT4 UTILPRN oUtil BOX XLN+.5,0.5 TO XLN+.5+.01,20.2 PEN oPen XLN := XLN + 0.7 LN := LN + 5 IF LN >= 65 PULAPAGINA(@LN,"RELATÓRIO DE CLIENTE",,@PAG,@XLN,OPRN,OUTIL,,65) ENDIF SELE 1 ARQCLI->(DBSKIP()) UNLOCK ENDDO END SEQUENCE ENDPAGE ENDPRINT OUTIL:END() OPEN:END() OFNT0:END() OFNT0B:END() oFnt8:END() oFnt8B:END() oFnt10:END() OFNT3:END() OFNT4:END() OFNT5:END() OFNT6:END() OPRN:END() OPEN:END() OPEN2:END() CURSORARROW() RETURN NIL

Obrigado Ana, email: alainrancharia@hotmail.com

Oi, tudo bem. É PPLA. Montar na raça é muito enrolado?

Boa tarde, preciso de ajuda para montar uma etiqueta na impressora argox. Seria mais ou menos nesse modelo. Como seria a montagem da etiqueta? obrigado

fiz isso e funcionou. Obrigado Kapiaba.

eu não uso xfocus, somente xsetfocus. REDEFINE BUTTONBMP oBtn[2] ID 29 OF ODLG1; // botao salvar ACTION (; GRAVAGRU(OPCAO,oDlg1,OBJGRUPO,oBtn[1],oBtn[2],oBtn[3],oBtn[4],oBtn[5],@vargru[1]),; XSETFOCUS(OBTN[1]),; OBRW:GOTOP(),; OBRW:REFRESH(),; ) como informei acima.

Retirei ainda acontece a mudança de lugar. Mudei o nome do botão pra ver se era conflito e nada. É na hora do xsetfocus(). Será que tem alguma coisa errada: FUNCTION XSETFOCUS(OOBJ) LOCAL OTEMPO := "" DEFINE TIMER OTEMPO INTERVAL 10 OF OOBJ:OWND ACTION (OOBJ:SETFOCUS(),OOBJ:SETPOS(0),OTEMPO:DEACTIVATE()) ACTIVATE TIMER OTEMPO RETURN("")

eu mudo na hora de mostrar. Esta acontecendo umas coisas estranhas também, eu tinha colocado o atalho no botão &Editar, acontece que na primeira vez ele fazia, depois que editada,salvava ele não funciona mais. Se eu sair do programa e voltar para o programa ele funciona. Tipo ele perde o foco depois volta. *----------- DEFINE A TELA ----------------------------* DEFINE DIALOG ODLGGRUPO RESOURCE "MANUTGRUPO" COLOR PRETO,CINZACL title "...: Manutenção Cadastro de Grupo de Produto...:"; STYLE nOr(WS_POPUP, ; WS_VISIBLE, ; WS_CAPTION) PIXEL ODLGGRUPO : LHELPICON := .F. // TIRA A ? DA JANELA ODLGGRUPO: bRClicked = { || MsgInfo( OemToAnsi( "Sem Efeito" ), ; ( OemToAnsi( "Informação" ) ) ) } *-------------

MANUTGRUPO DIALOG 2, 99, 500, 156 STYLE DS_ABSALIGN | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_MAXIMIZEBOX CAPTION "Fenix Sistem@s - Cadastro de Grupo de Produto" FONT 8, "MS Sans Serif" LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL { PUSHBUTTON "Editar", 28, 7, 126, 50, 14 EDITTEXT 1, 18, 80, 422, 15, WS_BORDER | WS_TABSTOP PUSHBUTTON "Salvar", 29, 60, 126, 56, 14 PUSHBUTTON "Cancelar", 47, 120, 126, 56, 14 PUSHBUTTON "Excluir", 25, 179, 126, 50, 14 PUSHBUTTON "Retornar", 26, 231, 126, 56, 14 RTEXT "", 2, 444, 80, 44, 15, SS_RIGHT | WS_DISABLED | WS_BORDER | WS_GROUP LTEXT "Nome/Descrição *", -2, 18, 67, 74, 8 RTEXT "CÓDIGO", -3, 448, 69, 40, 8 GROUPBOX "DADOS DO GRUPO DE PRODUTO", -40, 8, 38, 487, 81, BS_GROUPBOX | BS_LEFTTEXT | WS_GROUP }

bom dia, porque isso acontece. REDEFINE BUTTONBMP oBtn[1] ID 28 OF ODLG1;; // botao editar ACTION (; ATIVAOBJ(OBJGRUPO,2),; HABILITASALVAR(oBtn[1],oBtn[2],oBtn[3],oBtn[4],oBtn[5]),; xSETFOCUS(OBJGRUPO[2]),; ) REDEFINE BUTTONBMP oBtn[2] ID 29 OF ODLG1; // botao salvar ACTION (; GRAVAGRU(OPCAO,oDlg1,OBJGRUPO,oBtn[1],oBtn[2],oBtn[3],oBtn[4],oBtn[5],@vargru[1]),; XSETFOCUS(OBTN[1]),; OBRW:GOTOP(),; OBRW:REFRESH(),; ) FUNCTION GRAVAGRU(OPCAO,OTELA,OOBJ,OBOTAO1,OBOTAO2,OBOTAO3,OBOTAO4,OBOTAO5,oVar) IF VARGRU[2]=" " MsgInfo("(*) Campo de Preenchimento Obrigatório","AVISO DE ALERTA") ICONFICAO:=.T. RETURN(.F.) ENDIF IF OPCAO="A".OR.OPCAO="I" IF (OPCAO=="A") DO WHILE !RLOCK() ENDDO ELSEIF (OPCAO=="I") DO INCREG2 ENDIF REPL CODIGO WITH VARGRU[1], NOME WITH VARGRU[2] UNLOCK DBCOMMIT() ENDIF IF OPCAO=="I" IF MSGYESNO("Deseja Continuar a Incluir?","CONFIRMA") VARGRU :={0,SPACE(50)} VARGRUant:={0,SPACE(50)} REFRESCARANT(OOBJ,VARGRU,VARGRUANT,2) SELE 13 DBSETORDER(1) GO BOTT VARGRU[1]:=ARQGRUPO->CODIGO+1 OOBJ[1]:REFRESH() XSETFOCUS(OOBJ[2]) ELSE saidlg:=.t. OTELA:END() ENDIF ELSE DESABILITASALVAR(OBOTAO1,OBOTAO2,OBOTAO3,OBOTAO4,OBOTAO5) DESABILITAOBJ(OOBJ,50) ENDIF return(.T.) O botão salvar esta desligado, eu ativo o botão na hora de salvar e dou um foco no botão editar de novo. Ai ele muda o botão de lugar.