giovanyvecchi

Se quer o nome da variavel Get que esta em focus é assim define dialog memvar->dl_det_nf3 from 00,01 TO 37,120 ; title memvar->te_cab2 ; font memvar->rec_for @ linha,00 say "it " of dl_det_nf3 pixel @ linha,coluna+(sal_col*3) say "Descricao" of dl_det_nf3 pixel @ linha,coluna+(sal_col*45) say "Largura" of dl_det_nf3 pixel @ linha,coluna+(sal_col*55) say "Comprim" of dl_det_nf3 pixel @ linha,coluna+(sal_col*65) say "altura." of dl_det_nf3 pixel @ linha,coluna+(sal_col*75) say "Peso " of dl_det_nf3 pixel @ linha,coluna+(sal_col*85) say "Sem Peso" of dl_det_nf3 pixel linha += sal_lin coluna = sal_col for i = 1 to 10 te_desc := "desc_"+strzero(i,2) te_larg := "larg_"+strzero(i,2) te_comp := "comp_"+strzero(i,2) te_altu := "altu_"+strzero(i,2) te_peso := "peso_"+strzero(i,2) te_tem := "tem_"+strzero(i,2) te_l_tl := "lintel_"+strzero(i,2) te_c_tl := "lintel_"+strzero(i,2) &te_desc := space(50) &te_larg := 0 &te_comp := 0 &te_altu := 0 &te_peso := i &te_tem := .f. &te_l_tl := "oget"+strzero(i,2) @ linha,00 say strzero(i,2) size sal_col*03,10 of dl_det_nf3 pixel @ linha,coluna+(sal_col*03) get &te_desc picture "@!" size sal_col*40,10 of dl_det_nf3 pixel @ linha,coluna+(sal_col*45) get &te_larg picture "@E 9999.999" size sal_col*09,10 of dl_det_nf3 pixel @ linha,coluna+(sal_col*55) get &te_comp picture "@E 9999.999" size sal_col*09,10 of dl_det_nf3 pixel @ linha,coluna+(sal_col*65) get &te_altu picture "@E 9999.999" size sal_col*09,10 of dl_det_nf3 pixel @ linha,coluna+(sal_col*75) get &te_l_tl var &te_peso picture "@E 9999.999" size sal_col*09,10 of dl_det_nf3 pixel @ linha,coluna+(sal_col*85) checkbox &te_tem prompt "Sem Peso" size sal_col*10,sal_lin of dl_det_nf3 pixel linha += sal_lin*2 next memvar->lin_mar = linha+sal_lin*23 memvar->col_mar = coluna*155 @ linha,coluna+(sal_col*15) button "&Finaliza" of dl_det_nf3 pixel size sal_col*10,10 action grav_ped() dl_det_nf3:bkeydown := <|nkey| Local _cNameVarRet := "" if nkey == VK_F5 AEval(dl_det_nf3:aControls,<|_aCtrl| If _aCtrl:ClassName() == "TGET" If _aCtrl:lFocused _cNameVarRet := _aCtrl:oGet:nAme EndIf EndIf Return Nil >) ? _cNameVarRet EndIf Return Nil > //cEnd activate dialog dl_det_nf3 centered Return nil

Voce esta com a lógica procedural do clipper em DOS. passa o código de onde começa o DEFINE DIALOG até o ACTIVATE DIALOG

Apresente sua rotina onde os gets estão dentro da DIALOG que ja faço a checagem.

Dependendo do proposito há varias maneiras de verificar. Vou passar um exemplo: If oBtn1:lFocused ? "Botão 1" ElseIf oBtn2:lFocused ? "Botão 2 bla bla bla

Ola, se quiser colocar em uma coluna do xBrowse com botão do lado faz assim lc_aColunaDtImagem := ::oBrw3161_AgentesDocImgs:AddCol() With Object lc_aColunaDtImagem :bStrData := {||::oDsTmp_AgenteCNHImgs:N_AGE_CNHIMGS_dImagemData} :cHeader := "Dt. Foto " //:cToolTip := "" :nWidth := 118 :nDataStrAlign := AL_RIGHT :nHeadStrAlign := AL_RIGHT // Propriedades Inicio :nEditType := EDIT_BUTTON :AddResource("B16_NADA") // Bitmaps :AddResource("B16_NOVO") // Bitmaps :AddResource("B16X_AGENTEFOTOUP") // Bitmaps :AddResource("B16_BORRACHA") // Bitmaps :AddResource("B16_NADA") // Bitmaps :AddResource("B16_NADA") // Bitmaps :AddResource("B16_SETABAIXO") :nBtnBmp := 7 :nBtnWidth := 20 :bEditBlock := <|nHandle,nHWnd,oSelfBtn| Local _oMenuFotos, _aCursorPosicao := {20,12} //Linha, Coluna Local _lTmp := .F., _aMenuItem := Array(4) MENU _oMenuFotos POPUP 2015 If ::oDsTmp_AgenteCNHImgs:N_AGE_CNHIMGS_nSeqAuto > 0 MENUITEM _aMenuItem[1] Prompt "Marcar imagem do documento para exclusão" OF _oMenuFotos Resource "B16M_DELETE" _aMenuItem[1]:bAction := <|| If MsgNoYes("O registro da imagem da CNH será marcada para exclusão após "+; "a confirmação do procedimento."+CRLF+CRLF+; "Deseja marcar a imagem da CNH para exclusão ?",; "Atenção, Responda.") ::oDsTmp_AgenteCNHImgs:VarPut("nFlagProcess",4) EndIf ::oBrw3161_AgentesDocImgs:Refresh() ::oBrw3161_AgentesDocImgs:SetFocus() Return Nil > //cEnd If !::oDsTmp_AgenteCNHImgs:N_AGE_CNHIMGS_lCCN_Enviar MENUITEM _aMenuItem[2] Prompt "Colocar na fila para envio ao CCN" OF _oMenuFotos Resource "B16M_AgenteFotoUp" _aMenuItem[2]:bAction := <|| If MsgYesNo("Deseja incluir na fila para a imagem da CNH ser enviada para o CCN ?",; "Atenção, Responda.") ::oDsTmp_AgenteCNHImgs:VarPut("N_AGE_CNHIMGS_lCCN_Enviar",.T.) EndIf ::oBrw3161_AgentesDocImgs:Refresh() ::oBrw3161_AgentesDocImgs:SetFocus() Return Nil > //cEnd else MENUITEM _aMenuItem[3] Prompt "Tirar da fila de envio ao CCN" OF _oMenuFotos Resource "B16M_BORRACHAREMOVE" _aMenuItem[3]:bAction := <|| If MsgYesNo("Deseja desmarcar o envio da imagem da CNH para o CCN ?",; "Atenção, Responda.") ::oDsTmp_AgenteCNHImgs:VarPut("N_AGE_CNHIMGS_lCCN_Enviar",.F.) EndIf ::oBrw3161_AgentesDocImgs:Refresh() ::oBrw3161_AgentesDocImgs:SetFocus() Return Nil > //cEnd EndIf EndIf If ::oDsTmp_AgenteCNHImgs:N_AGE_CNHIMGS_nSeqAuto == -1 MENUITEM _aMenuItem[2] Prompt "Excluir a imagem recém incluída" OF _oMenuFotos Resource "B16M_BORRACHA" _aMenuItem[2]:bAction := <|| If MsgYesNo("Deseja excluir a imagem recém incluída ?",; "Atenção, Responda.") ::oDsTmp_AgenteCNHImgs:Delete() ::oBrw3161_AgentesDocImgs:GoUp() EndIf ::oBrw3161_AgentesDocImgs:Refresh() Eval(::oBrw3161_AgentesDocImgs:bChange) ::oBrw3161_AgentesDocImgs:SetFocus() Return Nil > //cEnd EndIf ENDMENU ACTIVATE POPUP _oMenuFotos AT _aCursorPosicao[1], _aCursorPosicao[2] ; OF oSelfBtn:oBtnElip Return Nil > //cEnd :bBmpData := <|| Local nLedBmp := 1 If ::oDsTmp_AgenteCNHImgs:nFlagProcess == 2 // Inclusão nLedBmp := 2 ElseIf ::oDsTmp_AgenteCNHImgs:nFlagProcess == 4 // Exclusão nLedBmp := 4 EndIf Return nLedBmp > //cEnd // Propriedades Final End With

Para impressão de cupons fiscais eu fiz com FastReport. Desta maneira imprimo em qualquer impressora ja que a impressão é gráfica e não por comandos especificos da impressora. e gero pdf se for nescessário.

Como trabalho com sistemas para Cartórios as informações exigidas foram as seguintes. 1-Tipo do servidor de rede (dedicado ou não) com acesso restrico com senha por um funcionário da própria empresa que tem que ter certificado emitido pela Sebrae https://sebrae.com.br/sites/PortalSebrae/cursosonline/lgpd-a-sua-empresa-esta-preparada,368d00cac30a5710VgnVCM1000004c00210aRCRD 2-Exigencia de backup em mídia externa (hd externo) com frequencia de pelo menos 24 horas 3-Exigencia de backup nuvem com frequencia de pelo menos 24 horas 4-Servidor reserva caso o primeiro falhe. Até ai é facil. conforme o ramo não sei se é nescessário outras exigencias tipo banco de dados com auditoria Os relatórios e documentos que não pertencem exclusivamente ao portador das informações pessoais contidas nestes documentos, relatórios, rascunhos etc não podem ser apresentados de forma integra (cpf completo, endereço, e-mail etc). Somente documentos de importancia financeira e juridica onde o portador adquire para validade exclusiva à sua necessidade. Quem monta o documento de regularização é o contador da empresa que pede as informações do sistema para a softhouse. A softhouse apenas tem que adaptar o sistema para efetuar as restrições da LGPD.

Tenho sistema de postos de combustiveis 24hora que o sistema ja chegou a ficar carregado mais de 90 dias e não tive problemas.

Não tenho problemas com recursos em nenhuma ocasião. Os erros podem aparecer se você não chamar algum controle não registrado dentro do dialogo.

Se você contruir um arquivo .rc que é texto e não é compilado para .RES no PellesC, você tem que gerar o .RES por ele mesmo porque as definições das variaveis são diferentes do BCC que usa o BRC32 para gerar o .RES do arquivo .RC. Ou você usa o PellesC e edita o arquivo .RES diretamente e ja compilado, ou edita em .RC e na compilação usa o comando que citei acima. A vantagem de usar .RC é que voce terá controle de versão caso use Github. Eu faço desta maneira. O padrão de definições das variaveis do PellesC são as mesmas da Microsoft Visual C (MSVC) para quem usa Visual Studio para gerar o programa como eu. Neste caso você pode contruir os arquivos .RC no pellesC que o CVTRES.EXE é chamado automaticament pelo CL.EXE gerando os arquivos .RES compativeis ao MSVC para geração do seu executavel. Os arquivos .RES já compilados pelo Workshop ou outro editor de recursos do padrã Borland não são incorporados no executavel gerado pelo MSVC. O mesmo causa um erro no Link. Baixe um demonstrativo que postei no forum internacional que no programinha que fiz tem um arquivo .RC feito no PellesC e compilado com MSVC. https://github.com/FiveTechSoft/FWH_tools/blob/master/giovany_tsttheme.zip

No Bat para compilar o programa gere o res pelo pellesc. C:\PELLESC\BIN\PORC.EXE -r -iC:\PELLESC\INCLUDE\WIN -iC:\PELLESC\INCLUDE SeuRc.rc

Primeiramente você vai ter que aprender a usar o postman https://www.postman.com/ Ele pode gerar as estruturas da api que você deseja. É complicado, mais vale a pena aprender.

Se quiser esconder a segunda aba seria assim oFld:aVisible := {.T.,.F.,.T.,.T.}

Tenta assim: oXbrw:lGDIP := .T. oXbrw:lTransparent := .T.

Uma pergunta: Estas imagens estão no xBrowse de fivewin ?