ER_PCREQ6125_Localizacao_Estados_Unidos_Distribuicao_USA

(Obrigatório)

Informações Gerais

   Legenda: 1 – Inovação 2 – Manutenção (Os demais campos devem ser preenchidos para ambos os processos). 

(Obrigatório)

Objetivo

Adequar as rotinas exclusivas da localização Estados Unidos, para que as mesmas possam ser executadas corretamente a partir da release 12.1.9 do produto TOTVS Datasul.

(Obrigatório)

Definição da Regra de Negócio

As tabelas BOL e BOL-REMITO utilizas no EMS 2.04B também tiveram alteração para o TOTVS 12, pois eram utilizadas pelo módulo de Fretes o qual foi descontinuado a partir do release EMS 2.06B.

Implementações no Produto

As implementações abaixo devem valer somente para a localização Estados Unidos, pois existem validações que não poderão estar disponíveis para outros países.

Alguns programas possuem a seguinte verificação: "{&bf_dis_versao_ems}" = "2.042" &THEN.

Para o release EMS 2.04B, funcionava perfeitamente, porém, com a mudança de release, será necessário alterar a validação para País Imposto Usuário = 3 (Estados Unidos).

Abaixo a lista de programas que deverão ser alterados:

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\dibo\bodi154cal.i05 
"{&bf_dis_versao_ems}" = "2.042" &THEN
      and preco-item.quant-min <= (deQuantidade *

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\dibo\bodi317pr.m17 
"{&bf_dis_Versao_ems}" = "2.042" &THEN
      assign de-quantidade = wt-it-docto

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\dibo\bodi317sd.m12 
      &endif
      &if "{&bf_dis_versao_ems}" = "2.042" &then
      &else

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\dibo\bodi317sd.m30 
"{&bf_dis_versao_ems}" = "2.042" &then
      &else
      wt-it-docto.fat-qtfam = item

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\dibo\bodi317sd.m8 
      &if "{&bf_dis_versao_ems}" = "2.042" &then
      &else 
      IF ped-item

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\dibo\bodi317va.p 
      '{&BF_DIS_VERSAO_EMS}' = '2.042' &THEN
      &GLOBAL-DEFINE SIT-WMS int-2
      &GLOBAL-DEFINE DEPOS-WMS log-2

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\dibo\bodi329.p 
      '{&BF_DIS_VERSAO_EMS}' = '2.042' &THEN
      &GLOBAL-DEFINE DEPOS-WMS log-2
      &ENDIF
      &IF '{&BF_DIS_VERSAO_EMS

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\dibrw\b20di135.w 

      &if '{&bf_dis_versao_ems}' = "2.042" &then
      &else
      run pi-cria-tt-deb-cred. 
      &endif

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\dibrw\b32di135.w 
      ELSE DO:
      &if '{&BF_DIS_VERSAO_EMS}' = '2.042' &then

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\ftp\ft0708d.p 
= param-global.formato-conta-contabil.
      &IF "{&bf_dis_versao_ems}" = "2.042" &THEN /*silvia*

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\ftp\ft0904.w 

     end.
      
      &if '{&bf_dis_versao_ems}' = '2.042' &then
      if not valid-handle(h_folder) then

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\ftp\ft3100a.w 
}' = '2.041' or
      '{&BF_DIS_VERSAO_EMS}' = '2.042' &THEN
      &GLOBAL-DEFINE DEPOS-WMS log-2
      &ENDIF
      &IF

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\ftp\ft3200.w 
      '{&BF_DIS_VERSAO_EMS}' = '2.042' &THEN
      RUN getCharField IN h-bodi139

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\ftp\ft3200f.w 
'{&BF_DIS_VERSAO_EMS}' = '2.04' or 
      '{&BF_DIS_VERSAO_EMS}' = '2.041' or
      '{&BF_DIS_VERSAO_EMS}' = '2.042' &THEN

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\ftp\ft3210f.w 
'{&BF_DIS_VERSAO_EMS}' = '2.04' or 
      '{&BF_DIS_VERSAO_EMS}' = '2.041' or
      '{&BF_DIS_VERSAO_EMS}' = '2.042' &THEN

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\ftp\ftapi310.p 
}' = '2.042' &THEN
      &GLOBAL-DEFINE DEPOS-WMS log-2
      &GLOBAL-DEFINE LOTE-WMS substring(para-fat

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\pdp\pd4000.w 
substituido pelo programa pd4100.
      Motivo: erro na base SQL
      */
      &IF '{&bf_dis_versao_ems}' = '2.042' &THEN

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\pdp\pdapi002.p 
= res-item.qt-alocada + de-qt-a-alocar.
      
      &IF '{&bf_dis_versao_ems}' = '2.042' &THEN

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\rep\re1005a.i1 
fornecedor */
      &IF "{&bf_dis_versao_ems}" = "2.042" &THEN /* Documento gera nota de

\\TOUROS\TFS\CD-JV\EMS2\Fontes_Doc\Sustentacao\V2.04\V2.04\rep\re1005a.p 
fornecedor */
      &IF "{&bf_dis_versao_ems}" = "2.042" &THEN /* Documento gera nota de

OBS.: Podem haver outras validações de versão que esteja disponível apenas para Brasil que possam vir a influenciar a utilização da Versão em Inglês. Como quando valida se versão >= 2.062

("{&bf_dis_versao_ems}" >= "2.062")

Implantação de Controle de Número de Documento

O programa de Controle de Numeração de Documento (FT4000/FT4000-V01) não está disponível no TOTVS 12.

Este programa foi desenvolvido como localizado no release EMS 2.04B e deve ser padrão no TOTVS 12.

Diferente do controle de numeração de documento utilizado pelas demais localizações (FT0114), os Estados Unidos utiliza a Classe e Estabelecimento e não a Série e Estabelecimento.

Os demais programas de Zoom (FT4000-Z01/FT4000-B01), Vá Para (FT4000-G01) também devem ser disponibilizados como padrões no TOTVS 12.

Importante: Estes programas deverão estar disponíveis para o país imposto usuário = 3 (Estados Unidos).

O programa FT0114 não deve ficar disponível no menu para o país Estados Unidos.

Manutenção de BOL (Bill of Lading) / Relacionamento BOL x Remitos

Na tela principal do programas “Manutenção” (novo nome para o programa, antes era chamado de “TF0700”). Em “Incluir” o programa TF0700A, para “ADD” em Packing abrirá o programa “TF0700B”, deve ser verificado se o tamanho do campo Estabelecimento está correto com 5 posições. Obs. Todos devem ser programas novos com nomenclaturas de programas de Faturamento (FT)

Neste tela deve permitir a criação e manutenção do Bol e do relacionamento Bol x Remito (Conhecimento de Embarque). O número do conhecimento é um dado informado pela transportadora após a inclusão do registo e serve para rastreabilidade da mercadoria.

É possível relacionar vários remitos a um único BOL.

Para a funcionalidade de Cópia de BOL, deverá ser observado que não deverão ser copiados os remitos vinculados, apenas o cabeçalho.

Deve ser criados os programas de Vá Para e o Zoom para estes programas.

Deve ser criadas novas BOs para as tabelas, BOL e BOL-REMITO, pois as tabelas foram criadas na movdis.

Consulta BOL

Na tela principal do programas “Consulta” (novo nome para o programa deve ser criado, antes era chamado de “TF0701”). A opção Detalhe abrirá o programa já existente FT1325A.

Impressão do BOL

Na tela principal do programa de Bol Printing (novo nome para o programa deve ser criado; antes era chamado de “TF0702”).

Deve ser possível verificar os resgistros da faixa de transportadora, conhecimento, data de implantação e usuário informados. Ainda é possível informar apenas os conhecimentos específicos pelo folder Digita. Deve ser possível listar os BOL’s já impressos, não impressos, e ainda listar os dados de Parâmetros.

Após a impressão, será gravado no Bol a data de embarque e marcá-lo como impresso. Podendo ser consultado na tela de Consulta.

No programa de impressão, deve estar disponível a opção de Reimpressão do Bol.

Listagem de Bol

No programa de Listagem de Bol (novo nome para o programa deve ser criado;antes era chamado de “TF0703”). Deve ser possível verificar os resgistros da faixa de transportadora, conhecimento, data de embarque e usuário informados, sendo possível classificar pela transportadora, data de entrega ou código do conhecimento. Deve ser possível listar os BOL’s já impressos, não impressos ou todos, e ainda listar os dados de Parâmetros.

Eliminação de Bol

No programa de Eliminação de Bol (novo nome para o programa deve ser criado, antes era chamado de “TF0704”), deve ser possível excluir os resgistros do bol e remitos do Bol das faixas de transportadora, número de Bol, data de embarque conforme seleção. Só poderão ser eliminados os registros que tenham data de embarque informadas e que os remitos tenham sido calculados.

Programas DPCs/APPCs / programas executados apenas no EUA

Em algumas situações, existem programas específicos que são executados, por serem desenvolvimentos apenas para os Estados Unidos. Estas UPCs/APPCs/DPCs devem ser convertidas em programas padrões EMS:

FT1333 (IN)

FT1336 (PS)

FT4000 (já explicado em tópico anterior)

FTAPI017-US

FT2010-US

O programa de Consulta de Pedidos tem APPs vinculadas para os Estados Unidos. Estes programas (pd1001-us/ pd1001e-us) devem ser transformados em programas padrões e devem ser executados apenas quando o país do usuário for igual a 3 (Estados Unidos).

Programas a serem validados traduções

Alguns programas precisam ser validados se as traduções estão corretas, alguns programas que deverão ser testados e revisados para garantir que não tenham problemas de tradução para os Estados Unidos ou outro país.

Procedimentos de Conversão

Verificar se o programa de inicialização da sequence do número do BOL. Este programa deverá buscar o último registro na tabela por número de bol e atualizar a sequence.

Os cadastros, processos, consultas e relatórios abaixo não demandam alterações, porém os mesmos precisam ser testados, para garantir o perfeito funcionamento e validação das traduções no Totvs 12.

FT0301A – Parametros de faturamento

PD0301 – Parametros de pedidos

CD0609 – Naturezas de operações

CD1070 – Customer Expense

CD1071 – Relacionamento Despesa x Cliente

CD0182 – Cadastro de imposto

CD6001/CD6001A – Cadastro de Alíquota da Jurisdição

CD6001B / CD6001C / CD6001D – Consulta de Estrutura de Jurisdição

CD6001C chamado a partir do botão Estrutura do CD6001

PD4100 – Pedidos de Vendas

PD0701 – Implantação de Pedidos Batch

FT3000 – Embarque

FT3200 – Simulação de Embarque

FT1008 – Item Separat Report

FT1009 – Delivery Separat Report

FT1335 – Packing Slip Generation

FT1336 – Packing Slip Printing

FT1331 – Packing Slip Maintenance

FT1332 – Packing Slip Inventory Updating

FT1338 – Packing Slip Forecast Updating

FT1323 – Packing Slip X Invoices Inquiry

FT1330 – Packing Slip Items Inquiry

FT1334 – Invoices X Packing Slip Inquiry

FT1327 – Packing Slip Report

FT1339 – Packing Slip Item Inquiry

FT4020 – Nota de Débito/Crédito

FT4030 – Cálculo de Remito

FT4040 – Cálculo de Embarque

FT4060 – Nota manual

FT1333 – Emissão de Nota Fiscal

FT0517 (FT0507) Listagem da Nota Fiscal - Programa Para Internacional EUA

FT0717 (FT0708) Cotabilização

CD6003 – Consulta do cadastro de Isenções do cliente

PD1001 e família – Consulta de Pedidos - Existem labels não traduzidos.

PD1005 - consulta de ordem do pedido de compra

FT0904/FT0904B/FT0904C/FT0904B2 – Consulta de notas fiscais

FT1325A – Consulta Remitos

CD1073 – Relatório de Despesas

FT4000A – Relatório de Controle Numeração de Documento

FT1110 – Vendas Matriz

FT1111 – Faturamento Produto/Matriz

CD6002 – Listagem de Alíquotas da Jurisdição

FT401ARP – Listagem de Parâmetros de Faturamento p/ Internacional, FT401arp chamado a partir do FT0401.

PD0601 – Listagem de Pedidos

FT0605 – Atualização de Estatística – Na geração do 2.04B o relatório saiu todo em Português. Verificar se é utilizado.

PD0619 – Drop Shipment (Operação Triangular)

Testes com Unidade de Negócio

Testes de integração de notas com o Financeiro

Testes de integração de notas com a Contabilidade

American Date Format: <Month>/<Day>/<Year>  

American Decimal Format: 9,999,999.99

Currency: U$

Opcional

Dicionário de Dados

ADD TABLE "bol"
  AREA "Schema Area"
  LABEL "Conhecimento de Transporte"
  DESCRIPTION "Conhecimento de Transporte"
  DUMP-NAME "di00878"
  TABLE-TRIGGER "Create" OVERRIDE PROCEDURE "database/tgdi/tcp/tcdi00878.p" CRC "?"
  TABLE-TRIGGER "Delete" OVERRIDE PROCEDURE "database/tgdi/tdp/tddi00878.p" CRC "?"
  TABLE-TRIGGER "Write" OVERRIDE PROCEDURE "database/tgdi/twp/twdi00878.p" CRC "?"

ADD FIELD "num-bol" OF "bol" AS integer
  DESCRIPTION "N£mero do BOL - Bill of Lading"
  FORMAT ">>>>>,>>9"
  INITIAL "1"
  LABEL "BOL"
  POSITION 2
  COLUMN-LABEL "BOL"
  HELP "Informe o numero do BOL"
  ORDER 10
  MANDATORY

ADD FIELD "nom-ab-transp" OF "bol" AS character
  DESCRIPTION "Nome abreviado da transportadora"
  FORMAT "X(12)"
  INITIAL ""
  LABEL "Transportadora"
  POSITION 3
  COLUMN-LABEL "Transp"
  HELP "Informa o nome abreviado da transportadora"
  ORDER 20
  MANDATORY

ADD FIELD "cod-num-conhec" OF "bol" AS character
  DESCRIPTION "N£mero do conhecimento"
  FORMAT "X(40)"
  INITIAL ""
  LABEL "Conhecimento"
  POSITION 4
  COLUMN-LABEL "Conhec"
  HELP "Informe o n£mero do conhecimento"
  ORDER 30

ADD FIELD "dat-embarque" OF "bol" AS date
  DESCRIPTION "Data de embarque"
  FORMAT "99/99/9999"
  INITIAL ?
  LABEL "Data Embarque"
  POSITION 5
  COLUMN-LABEL "Dt Embarque"
  HELP "Informe a data de embarque do BOL"
  ORDER 40

ADD FIELD "log-impresso" OF "bol" AS logical
  DESCRIPTION "BOL Impresso ?"
  FORMAT "Sim/NÆo"
  INITIAL "yes"
  LABEL "Impresso"
  POSITION 6
  VIEW-AS "view-as toggle-box"
  COLUMN-LABEL "Impresso"
  HELP "Informe se o BOL j  foi impresso"
  ORDER 50
  MANDATORY

ADD FIELD "dat-implant" OF "bol" AS date
  DESCRIPTION "Data de implanta‡Æo do BOL"
  FORMAT "99/99/9999"
  INITIAL "today"
  LABEL "Data Implant"
  POSITION 7
  COLUMN-LABEL "Dt Implant"
  HELP "Informe a data de implanta‡Æo do BOL"
  ORDER 60

ADD FIELD "cod-user-imp" OF "bol" AS character
  DESCRIPTION "Usu rio de implanta‡Æo do BOL"
  FORMAT "X(12)"
  INITIAL ""
  LABEL "Usu rio"
  POSITION 8
  COLUMN-LABEL "Usu rio"
  HELP "Informe o usu rio de implanta‡Æo do BOL"
  ORDER 70
  MANDATORY

ADD FIELD "char-1" OF "bol" AS character
  FORMAT "x(100)"
  INITIAL ""
  POSITION 9
  ORDER 80

ADD FIELD "char-2" OF "bol" AS character
  FORMAT "x(100)"
  INITIAL ""
  POSITION 10
  ORDER 90

ADD FIELD "dec-1" OF "bol" AS decimal
  FORMAT "->>>>>>>>>>>9.99999999"
  INITIAL "0"
  POSITION 11
  DECIMALS 8
  ORDER 100

ADD FIELD "dec-2" OF "bol" AS decimal
  FORMAT "->>>>>>>>>>>9.99999999"
  INITIAL "0"
  POSITION 12
  DECIMALS 8
  ORDER 110

ADD FIELD "int-1" OF "bol" AS integer
  FORMAT "->>>>>>>>>9"
  INITIAL "0"
  POSITION 13
  ORDER 120

ADD FIELD "int-2" OF "bol" AS integer
  FORMAT "->>>>>>>>>9"
  INITIAL "0"
  POSITION 14
  ORDER 130

ADD FIELD "log-1" OF "bol" AS logical
  FORMAT "Sim/NÆo"
  INITIAL "no"
  POSITION 15
  VIEW-AS "view-as toggle-box"
  ORDER 140

ADD FIELD "log-2" OF "bol" AS logical
  FORMAT "Sim/NÆo"
  INITIAL "no"
  POSITION 16
  VIEW-AS "view-as toggle-box"
  ORDER 150

ADD FIELD "data-1" OF "bol" AS date
  FORMAT "99/99/9999"
  INITIAL ?
  POSITION 17
  ORDER 160

ADD FIELD "data-2" OF "bol" AS date
  FORMAT "99/99/9999"
  INITIAL ?
  POSITION 18
  ORDER 170

ADD FIELD "check-sum" OF "bol" AS character
  FORMAT "x(20)"
  INITIAL ""
  LABEL "Check-sum"
  POSITION 19
  ORDER 180

ADD INDEX "bol-02" ON "bol"
  AREA "Schema Area"
  INDEX-FIELD "dat-embarque" ASCENDING

ADD INDEX "bol-01" ON "bol"
  AREA "Schema Area"
  INDEX-FIELD "cod-num-conhec" ASCENDING

ADD INDEX "bol-id" ON "bol"
  AREA "Schema Area"
  UNIQUE
  PRIMARY
  INDEX-FIELD "num-bol" ASCENDING

.
PSC
cpstream=ibm850
.
0001234567

ADD TABLE "bol-remito"
  AREA "Schema Area"
  LABEL "Remitos do BOL"
  DESCRIPTION "Remitos do BOL"
  DUMP-NAME "di00879"
  TABLE-TRIGGER "Create" OVERRIDE PROCEDURE "database/tgdi/tcp/tcdi00879.p" CRC "?"
  TABLE-TRIGGER "Delete" OVERRIDE PROCEDURE "database/tgdi/tdp/tddi00879.p" CRC "?"
  TABLE-TRIGGER "Write" OVERRIDE PROCEDURE "database/tgdi/twp/twdi00879.p" CRC "?"

ADD FIELD "num-bol" OF "bol-remito" AS integer
  DESCRIPTION "N£mero do BOL - Bill of Lading"
  FORMAT ">>>>>,>>9"
  INITIAL "1"
  LABEL "BOL"
  POSITION 2
  COLUMN-LABEL "BOL"
  HELP "Informe o numero do BOL"
  ORDER 10
  MANDATORY

ADD FIELD "cod-estabel" OF "bol-remito" AS character
  DESCRIPTION "C¢digo do estabelecimento do remito"
  FORMAT "x(5)"
  INITIAL ""
  LABEL "Estabelecimento"
  POSITION 3
  COLUMN-LABEL "Estabel"
  HELP "Informe o c¢digo do estabelecimento do remito"
  ORDER 20
  MANDATORY

ADD FIELD "cod-serie" OF "bol-remito" AS character
  DESCRIPTION "S‚rie do remito"
  FORMAT "X(5)"
  INITIAL ""
  LABEL "S‚rie"
  POSITION 4
  COLUMN-LABEL "S‚rie"
  HELP "Informe a s‚rie do remito"
  ORDER 30
  MANDATORY

ADD FIELD "cod-nr-remito" OF "bol-remito" AS character
  DESCRIPTION "N£mero do remito"
  FORMAT "X(16)"
  INITIAL ""
  LABEL "Remito"
  POSITION 5
  COLUMN-LABEL "Remito"
  HELP "Informe o n£mero do remito"
  ORDER 40
  MANDATORY

ADD FIELD "char-1" OF "bol-remito" AS character
  FORMAT "x(100)"
  INITIAL ""
  POSITION 6
  ORDER 50

ADD FIELD "char-2" OF "bol-remito" AS character
  FORMAT "x(100)"
  INITIAL ""
  POSITION 7
  ORDER 60

ADD FIELD "dec-1" OF "bol-remito" AS decimal
  FORMAT "->>>>>>>>>>>9.99999999"
  INITIAL "0"
  POSITION 8
  DECIMALS 8
  ORDER 70

ADD FIELD "dec-2" OF "bol-remito" AS decimal
  FORMAT "->>>>>>>>>>>9.99999999"
  INITIAL "0"
  POSITION 9
  DECIMALS 8
  ORDER 80

ADD FIELD "int-1" OF "bol-remito" AS integer
  FORMAT "->>>>>>>>>9"
  INITIAL "0"
  POSITION 10
  ORDER 90

ADD FIELD "int-2" OF "bol-remito" AS integer
  FORMAT "->>>>>>>>>9"
  INITIAL "0"
  POSITION 11
  ORDER 100

ADD FIELD "log-1" OF "bol-remito" AS logical
  FORMAT "Sim/NÆo"
  INITIAL "no"
  POSITION 12
  VIEW-AS "view-as toggle-box"
  ORDER 110

ADD FIELD "log-2" OF "bol-remito" AS logical
  FORMAT "Sim/NÆo"
  INITIAL "no"
  POSITION 13
  VIEW-AS "view-as toggle-box"
  ORDER 120

ADD FIELD "data-1" OF "bol-remito" AS date
  FORMAT "99/99/9999"
  INITIAL ?
  POSITION 14
  ORDER 130

ADD FIELD "data-2" OF "bol-remito" AS date
  FORMAT "99/99/9999"
  INITIAL ?
  POSITION 15
  ORDER 140

ADD FIELD "check-sum" OF "bol-remito" AS character
  FORMAT "x(20)"
  INITIAL ""
  LABEL "Check-sum"
  POSITION 16
  ORDER 150

ADD INDEX "blrmt-01" ON "bol-remito"
  AREA "Schema Area"
  INDEX-FIELD "cod-estabel" ASCENDING
  INDEX-FIELD "cod-serie" ASCENDING
  INDEX-FIELD "cod-nr-remito" ASCENDING

ADD INDEX "blrmt-id" ON "bol-remito"
  AREA "Schema Area"
  UNIQUE
  PRIMARY
  INDEX-FIELD "num-bol" ASCENDING
  INDEX-FIELD "cod-estabel" ASCENDING
  INDEX-FIELD "cod-serie" ASCENDING
  INDEX-FIELD "cod-nr-remito" ASCENDING

.
PSC
cpstream=ibm850
.
0001234567