FiveTech Software tech support forums

Code: Select all

REDEFINE GROUP oGroup ID 114 color RGB(255, 0, 0), RGB(182,221,199) of odlg_ped FONT oFont1 PROMPT "Configuração Retaguarda" TRANSPARENT

REDEFINE radio orad var v_retaguar ID 801, 803 COLOR RGB(0, 0, 0), RGB(182,221,199) of odlg_ped UPDATE

REDEFINE SAY ID 38 color RGB(0, 0, 0), RGB(182,221,199) of odlg_ped FONT oFont1 UPDATE
REDEFINE get ogetdir var v_dirserver picture '@!' ID 216 of odlg_ped ;
         color get_frente,get_fundo BITMAP "pastas" ;
         Action (v_dirserver:=if(empty(dir_teste:= ;
         cgetdir32('Selecione o Diretório',v_dirserver)), ;
         v_dirserver,dir_teste),odlg_ped:update(),sysrefresh()) ;
         update when if(v_retaguar == 1, .t.,  ;
         if(v_retaguar # 1, (v_dirserver := space(len(v_dirserver)), ;
         ogetdir:refresh(), sysrefresh(), .f.), .t.))

ACTIVATE DIALOG odlg_ped CENTERED ON INIT MudarFoco(@oFld_SPED)

return nil


function MudarFoco(oFld_SPED)

oFld_SPED:aDialogs[1]:bStart:={|| oFld_SPED:aDialogs[1]:SetFocus() }
oFld_SPED:refresh(.t.)

return(NIL)
 

Code: Select all

// RESOURCE SCRIPT generated by "Pelles C for Windows, version 6.50".

#include <windows.h>
#include <commctrl.h>
#include <richedit.h>

LANGUAGE LANG_PORTUGUESE,SUBLANG_PORTUGUESE_BRAZILIAN

EXCLUIR BITMAP "res1.bmp"

GRAVAR BITMAP "res2.bmp"

SANGRIA BITMAP "res3.bmp"

SANGRIA1 BITMAP "res4.bmp"

SUPRIMENTO BITMAP "res5.bmp"

SUPRIMENTO1 BITMAP "res6.bmp"

VENDER BITMAP "res7.bmp"

VENDER1 BITMAP "res8.bmp"

CLOCK CURSOR "res1.cur"

I_AGUARDE ICON "res1.ico"

I_ARMARIO ICON "res2.ico"

I_IMPRESSORA ICON "res3.ico"

I_SENHA ICON "res4.ico"

DLG_CONFIG DIALOG DISCARDABLE 6, 15, 520, 327
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Parametrização do Sistema"
FONT 8, "MS Sans Serif"
{
  CONTROL "Mensagem do Cupom", 131, "Button", BS_GROUPBOX, 2, 204, 288, 96
  CONTROL "Configuração Retaguarda", 114, "Button", BS_GROUPBOX|WS_GROUP, 292, 233, 226, 70, WS_EX_TRANSPARENT
  CONTROL "", 110, "TFolderex", WS_GROUP|WS_TABSTOP, 2, 2, 516, 152
  CONTROL "Balança Imprime Preço no Código de Barra EAN13", 901, "Button", BS_AUTOCHECKBOX, 6, 156, 252, 10
  CONTROL "Solicitar Comissionamento após a venda", 902, "Button", BS_AUTOCHECKBOX, 266, 156, 238, 10
  CONTROL "Imprimir Nome Usuário no Cupom", 903, "Button", BS_AUTOCHECKBOX, 6, 168, 252, 10
  CONTROL "Bloquear Venda com Estoque Zerado ou Negativo", 904, "Button", BS_AUTOCHECKBOX, 266, 168, 238, 10
  CONTROL "Selecionar Campo Cliente no Pagamento", 907, "Button", BS_AUTOCHECKBOX, 6, 180, 252, 10
  CONTROL "Mostrar Quantidade Total na Venda", 905, "Button", BS_AUTOCHECKBOX, 266, 180, 238, 10
  CONTROL "Somar a Posição de Estoque Vinda do Retaguarda", 910, "Button", BS_AUTOCHECKBOX, 6, 193, 285, 10
  CONTROL "", 211, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 6, 217, 280, 14
  CONTROL "", 212, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 6, 233, 280, 14
  CONTROL "", 213, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 6, 249, 280, 14
  CONTROL "", 214, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 6, 265, 280, 14
  CONTROL "", 215, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 6, 281, 280, 14
  CONTROL "Imprime Comp. Troca de Usuário", 906, "Button", BS_AUTOCHECKBOX, 294, 196, 219, 10
  CONTROL "Permitir Alterar Parcelas e Datas", 908, "Button", BS_AUTOCHECKBOX, 294, 209, 219, 10
  CONTROL "Pesquisa no Modo Supermercado por Descrição", 909, "Button", BS_AUTOCHECKBOX, 294, 221, 219, 10
  CONTROL "Utiliza Retaguarda Padronizado", 801, "Button", BS_AUTORADIOBUTTON, 296, 245, 220, 10
  CONTROL "Não Utiliza Retaguarda", 803, "Button", BS_AUTORADIOBUTTON, 296, 259, 220, 10
  CONTROL "", 216, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 296, 287, 220, 13
  CONTROL "Configurar &Impressora", 103, "Button", WS_TABSTOP, 2, 306, 120, 16
  CONTROL "Configurar &Balança de Caixa", 104, "Button", WS_TABSTOP, 148, 306, 140, 16
  CONTROL "&Aceitar", 101, "Button", WS_TABSTOP, 330, 306, 70, 16
  CONTROL "&Cancelar", 102, "Button", WS_TABSTOP, 408, 306, 70, 16
  CONTROL "Caminho do Servidor Retaguarda:", 38, "Static", WS_GROUP, 296, 275, 204, 10
}

BROWSE1 BITMAP "res9.bmp"

VS_VERSION_INFO VERSIONINFO
FILEVERSION 1,0,37,0
PRODUCTVERSION 1,0,37,0
FILEFLAGSMASK 0x3F
FILEFLAGS 0x0
FILEOS VOS__WINDOWS32
FILETYPE VFT_APP
FILESUBTYPE VFT2_UNKNOWN
{
  BLOCK "StringFileInfo"
  {
    BLOCK "041604B0"
    {
      VALUE "Comments", "Sistema Emissor de Cupom Fiscal Homologado conforme CONVÊNIO ICMS 15/08\0"
      VALUE "CompanyName", "SAALLC INFORMÁTICA\0"
      VALUE "FileDescription", "Programa Aplicativo Fiscal (PAF/ECF - ER 01.07)\0"
      VALUE "FileVersion", "1.37\0"
      VALUE "InternalName", "SALC.EXE\0"
      VALUE "LegalCopyright", "Sebastião Oliveira Pessoa - MicroInformática\0"
      VALUE "LegalTrademarks", "SALC INFORMATICA\0"
      VALUE "OriginalFilename", "SALC.EXE\0"
      VALUE "PrivateBuild", "FIVEWIN/Xharbour\0"
      VALUE "ProductName", "SALC  - PAF-ECF - Programa Aplicativo Fiscal\0"
      VALUE "ProductVersion", "1.37\0"
      VALUE "SpecialBuild", "FIVEWIN/Xharbour\0"
    }
  }
  BLOCK "VarFileInfo"
  {
    VALUE "Translation", 0x416, 0x4B0
  }
}

1 MANIFEST "res1.xml"

BMPSALVAR BITMAP "res10.bmp"

BMPDESISTIR BITMAP "res11.bmp"

BMPEXCLUIR BITMAP "res12.bmp"

BMPSAIR1 BITMAP "res13.bmp"

BMPSAIR BITMAP "res14.bmp"

LEITURAX BITMAP "res15.bmp"

REINDEXAR BITMAP "res16.bmp"

TOOLS BITMAP "res17.bmp"

PROCURAR BITMAP "res18.bmp"

PASTAS BITMAP "res19.bmp"

BROWSE BITMAP "res20.bmp"

UNLOCK BITMAP "res21.bmp"

PIE BITMAP "res22.bmp"

BARS BITMAP "res23.bmp"

LINES BITMAP "res24.bmp"

POINT BITMAP "res25.bmp"

POINTS BITMAP "res26.bmp"

PRINTER BITMAP "res27.bmp"

XGRID BITMAP "res28.bmp"

YGRID BITMAP "res29.bmp"

3D BITMAP "res30.bmp"

I_SINTEGRA ICON "res5.ico"

SINTEGRA BITMAP "res31.bmp"

CALC BITMAP "res32.bmp"

BMPKEY BITMAP "res33.bmp"

BMPREDE BITMAP "res34.bmp"

AI_ECF ICON "res6.ico"

DIREITA BITMAP "res35.bmp"

ESQUERDA BITMAP "res36.bmp"

SPED ICON "res7.ico"

CONFIRMAR BITMAP "res37.bmp"